Moin,
folgendes habe ich vor:
Ich möchte, solang einButton gedrückt ist, eine Schleife durchlaufen.
Diese soll verlassen werden wenn der Button nicht mehr gedrückt ist.
Ich hab das ganze nun im OnMouseDown Event.
Nur irgendwie bleibt die Anwendung stehen bzw in der Schleife hängen.
Aber ich weiß grad nich was ich falsch mache.
Delphi-Quellcode:
procedure TForm4.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
while ssleft in shift do
begin
'Tu was
end;
end;