eine Aktion solange ausführen, wie Maustaste gedrückt ist

[Neutral General]

Zitat von DeddyH:

Wäre OnMouseDown nicht angebrachter?

Um DeddyHs Vorschlag mal weiterzuführen:

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject);
begin
  Aktion.Starten;
end;

procedure TForm1.Button1MouseUp(Sender: TObject);
begin
  Aktion.Beenden;
end;

Allerdings kann der Benutzer die Maustaste auch außerhalb des Buttons loslassen, so das Button1.OnMouseUp nicht ausgeführt wird.