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