Hallo, ich habe ein Edit.text -Feld und einen TupDOwn Button daneben platziert.
nun möchte ich, daß ich mit dem Button die Werte in dem Edit-Kasten erhöhen/ senken kann.
Wenn ich folgenden Code unter Tupdown-Button KLICK eingebe
kann ich nur zuvor eingegebene Werte erhöhen und bis auf diese wieder herunter erniedrigen, aber niemals tiefer gehen.
also zur Laufzeit: vorgegebene Eingabe im Edit.text:= '20';
dann kann ich mit dem Button 21,22,23,24,25,26, .. (down) 26,25,24,,23,22,21,20,20,20,20,20,20,20,20, (es geht nicht auf 19 oder 18 runter ...)
wenn ich 14 dann ebenfalls zur Laufzeit z.B: danach manuell 14 eintippe, kann ich niemals Werte wie 13 oder 12 durch klick auf diesen Button eingeben.
Ist das korrekt so? Muß ich damit leben? kann man das (hoffentlich ) ändern?
Delphi-Quellcode:
if button = btNext then
begin
Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
UpDown1.Position := StrToInt(Edit1.Text);
end;
if button = btprev then
begin
Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);
UpDown1.Position := StrToInt(Edit1.Text);
end;
ICQ: 204141443
Delphi 3 Professional, Intel 2x 2,4Ghz, 3 GB-Graka, Sound-onBrd, --
außerdem D2S, D3Pro, D4S, D5S, D6S, D7S +
Indy, Lazarus, VB5Std, VC++5Pro, Tasm4+5 - was braucht man mehr?
-