Einzelnen Beitrag anzeigen

Benutzerbild von Coder
Coder

Registriert seit: 27. Feb 2004
Ort: Bochum
206 Beiträge
 
Delphi 3 Professional
 
#1

Tupdown Button - warum nur aufwärts?

  Alt 26. Aug 2008, 12:19
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?
-
  Mit Zitat antworten Zitat