Hallo,
in der Anlage findest Du einen Nachfahren von TSpeedbutton. Mit dieser Komponente
kannst Du Dein Problem lösen.
Delphi-Quellcode:
published
{ Published-Deklarationen }
property RepeatEnabled : Boolean read FRepeatEnabled write SetRepeatEnabled default True;
property Attack : Integer read FAttack write SetAttack default 500;
property Interval : Integer read FInterval write SetInterval default 200;
property ShowBitmap : Boolean read FShowBitmap write SetShowBitmap default True;
end;
RepeatEnabled : Repeatfunktion an oder aus
Attack : Angabe in Millisekunden. D.h. nach wieviel Millisekunden soll die Repeatfunktion starten
Interval : Angabe in Millisekunden. Interval zwischen zwei Repeats (OnClick-Events)
ShowBitmap : wenn True, dann wird während der Repeatfunktion ein kleines grünes Rechteck auf dem Button angezeigt.