SpinEdit für ' ' Wert zuordnen

[Davidlocke13]

Wie kann ich meinem SpinEdit für ' ' den Wert '12' zuordnen ?

habe schon folgendes Probiert:

Code:

  if SpinEdit1.Text = ' ' then
  SpinEdit1.Text := '12';

klappt nur leider nicht !

LG

[Klaus01]

Hallo,
kann ein TSpinEdit überhaupt ein ' ' im Text property annehmen?
Normalerweise bewegt es ich doch zwischen minValue und maxValue?

Einen Wert setzen würde ich über die value Eigenschaft.

Grüße
Klaus

[Davidlocke13]

Ja es bewegt sich ja bei mir auch zwischen 1 und 800.
Nur wenn ich da einen wert per Tastatur eintrage und vorher das Teil lehre zeigt der mir bei ' ' also Lehr einen Fehler an,
deshalb will ich im für ' ' sagen das er '12' nehmen soll.

[Klaus01]

.. kannst Du das nicht im onChange event abfangen.

Aber ist es nicht irgendwie befremdlich, wenn ich den Eintrag ändern will
einfach so ein 12 eingetragen wird?

Grüße
Klaus

[freeway]

probier mal statt

Delphi-Quellcode:

if SpinEdit1.Text = ' ' then

Delphi-Quellcode:

if SpinEdit1.Text = '' then

[Popov]

Wenn du es schaffst ein Leerzeichen einzugeben:

Delphi-Quellcode:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  with Sender as TSpinEdit do
  begin
    if Text = '' {' '} then Text := '12'; //Edit: Leerzeichen oder Nichts
    SelStart := Length(Text);
  end;
end;

Moment, jetzt ein Leerzeichen oder Leer? Im ersten Beitrag war es ein Leerzeichen. Falls es bei leer sein soll, bitte anpassen

[Davidlocke13]

Zitat:

Zitat von Klaus01 (Beitrag 1194134)

..
Aber ist es nicht irgendwie befremdlich, wenn ich den Eintrag ändern will
einfach so ein 12 eingetragen wird?

Ja stimmt, da währe es eigentlich besser das der die Eingabe ignoriert bis ich aus dem SpinEdit raus klicke oder Enter drücke :wink:

[Davidlocke13]

Zitat:

Zitat von Davidlocke13 (Beitrag 1194131)

... zeigt der mir bei ' ' also Lehr ...

Lehr habe ich gemeint nix drin also '' :wink:

[Popov]

Oder so. Hier wird einfach alles danach markiert. Folgt ein weiterer Tastendruck, wird die 12 überschrieben.

Delphi-Quellcode:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  with Sender as TSpinEdit do
  begin
    if Text = '' then Text := '12';
    SelStart := Length(Text);
    SelectAll;
  end;
end;

[Davidlocke13]

Die Anderen Sachen klappen zwar alle und mein Fehler war bei ' ' sollte so sein '', aber es ist halt doch recht unpraktisch !

Also wenn ich '' eingebe soll der das ignorieren bis ein Wert kommt ! Das währe am besten :wink: