SpinEdit für ' ' Wert zuordnen

[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

[Davidlocke13]

Zitat von Klaus01:

..
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

[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

[Popov]

Also inzwischen verstehe ich auch das Problem nicht. Wenn man alles zahlen löscht, so dass das SpinEdit Feld leer ist, dann passiert zuerst nichts. Keine Fehlermeldung, Nichts. Also wo ist das Problem?

Oder soll es reagieren wenn das Feld verlassen wird?

Dann das obere Beispiel in diese Prozedur packen:

Delphi-Quellcode:

procedure TForm1.SpinEdit1Exit(Sender: TObject);
begin
  //...wie gehabt
end;

[Davidlocke13]

bei mir gibt es aber eine Fehlermeldung ! das liegt daran das wenn ich eine 1 rein schreibe der das Teil sofort auf Schriftgröße 1 Macht und wenn ich nix eingebe kann der auch auf keine Schriftgröße machen und schwups habe ich einen Fehler

1.jpg 2.jpg

[Davidlocke13]

Mein Code:

Code:

private
    FUpdating: Boolean;
    function CurrText: TTextAttributes;

function TForm1.CurrText: TTextAttributes;
begin
  if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes
  else Result := RichEdit1.DefAttributes;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 if FUpdating then Exit;
  CurrText.Size := StrToInt(SpinEdit1.Text);
end;