SpinButton; Wie Pfeile ausschalten?

[Daniel B]

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