Hallo zusammen,
vielen Dank für die Hinweise. Ich habe daraus folgende Lösung gebastelt, die genau das tut, was ich wollte (vielleicht geht's ja noch einfacher?): (Änderung: Ich verwende die MouseDown-Routine, da die Click-Routine erst ausgeführt wird, wenn der Knopf losgelassen wird!)
Delphi-Quellcode:
procedure Tfrm_ProMonZ.DemoButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ButtonDown := true;
while ButtonDown do
begin
//Anweisungen
Application.ProcessMessages;
end;
end;
procedure Tfrm_ProMonZ.DemoButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ButtonDown:=false;
end;
Gruss,
Freddy
[edit=sakura] [delphi]Tags Mfg, sakura[/edit]