Hallo,
da es keine möglichkeiten gibt, die Pfeile auszuschalten und TUpDon auch nicht die Ergebnisse gebracht hatte die ich mir gewünscht hatte, bin ich doch bei MaskEdit und TSpinButton und folgendem Code gekommen. Funktioniert wunderbar und ich komme nicht ausserhalb meiner Maximalwerte.
Delphi-Quellcode:
procedure TForm1.SpinButton1UpClick(Sender: TObject);
//Verzögerungszeit erhöhen
begin
if TimeZaehler = 31 then
begin
ShowMessage('Dies ist bereits der Maximalwert!');
end
else
begin
TimeZaehler := TimeZaehler +1;
MaskEdit1.Text := TimeCounter[TimeZaehler].ZaehlZeit;
end;
end;
procedure TForm1.SpinButton1DownClick(Sender: TObject);
//Verzögerungszeit verringern
begin
if TimeZaehler = 0 then
begin
ShowMessage('Dies ist bereits der Minimalwert!');
end
else
begin
TimeZaehler := TimeZaehler -1;
MaskEdit1.Text := TimeCounter[TimeZaehler].ZaehlZeit;
end;
end;
Wobei TimeZaehler eine globale Integervariable ist womit ich den momentanen Schritt erhalte. Ich muss nur 0 bi 31 klicken können.
Grüsse, Daniel
