mit Editfeld & UpDown SpinEdit immitieren - Change Problem

[Mazel]

Hallo,

da die SpinEdit Komponente eine von den wenigen Komponenten ist, die das XP Theme nicht annimmt, baue ich mir mein "SpinEdit" selber mit einem Editfeld und einem UpDown, was bis jetzt auch immer schon geklappt hat. Im Anhang ein Bild. Dies hat immer ohne Probleme funktioniert, weil ich von 1 - xx alle Werte akzeptiert habe. Nun brauch ich aber einen Bereich von 200-9999 und da habe ich im OnChange folgenden Code:

Delphi-Quellcode:

procedure TForm7.Edit1Change(Sender: TObject);
begin
 If StrToInt(Edit1.Text) < 100 then Edit1.Text:='100';
 Else If Sender = Edit1 then UpDown1.Position:=StrToInt(Edit1.Text);
end;

Dadruch kann man leider keinen neuen Wert eingeben, da er sofort auf 200 zurückspringt wenn man eine Zahl kleiner als 200 eingibt.

Kann ich das irgendwie verhindern?

Gruß
Mazel

[Niko]

Hi,

ich würde die Prüfung erst im OnExit Ereignis vornehmen.

[Mazel]

Hi,

danke. Geanu das habe ich gebraucht. :thumb:

Ich wusste nicht das es ein OnExit Ereignis für die Editfelder gibt.

Danke nochmal.

Gruß
Mazel