TSpeedButton gedrueckt halten

[Eclipticon]

Guten Abend,

ich verwende in einem Projekt TSpeedButtons und moechte, dass die Ereignisbehandlungsroutine wiederholt wird, wenn sie gedrueckt bleiben. Gibt es dazu schon eine Loesung? Man sieht es ja auch am Draw-Style des Buttons, dass er noch gedrueckt ist ...

Wenn nein, was haltet ihr von folgender:

Code: Alles auswählen

//OnMouseDown-Handler:
Pressed := true;
while Pressed do begin
 // something
end;
 
// OnMouseUp und OnMouseLeave-Handler:
Pressed := false;

Danke!

[m.fuchs]

Kommt darauf an. Wie häufig sollen denn die Wiederholungen sein?
Das erscheint mir nämlich eher eine Anwendung für einen Timer zu sein der bei OnMouseDown aktiviert und bei OnMouseUp / OnMouseLeave deaktiviert wird.

[Eclipticon]

Guter Ansatz!

Ich sollte aber dazu sagen, dass "something" ziemlich lange dauern kann, weil ich damit Hardware ansteuere und keine Ahnung habe, wann meine Funktion wieder zurueckkommt. Aus diesem Grund haette ich nur sehr ungern einen fixen Timer verwendet ...

[m.fuchs]

[...] "something" ziemlich lange dauern kann, weil ich damit Hardware ansteuere und keine Ahnung habe, wann meine Funktion wieder zurueckkommt. Aus diesem Grund haette ich nur sehr ungern einen fixen Timer verwendet ...

Achso, du hast Sorge dass sich die Timeraufrufe ins Gehege kommen? Dagegen gibt es ja diese Minipattern:

Code: Alles auswählen

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  // do something
  Timer1.Enabled := True;
end;

Wobei ich zugeben, dass das grad nicht so elegant wirkt auf mich. Man müsste nämlich beim Reaktivieren am Ende von der OnTimer-Methode noch prüfen ob der SpeedButton noch gedrückt ist. Vielleicht gibt es da noch eine schönere Lösung.