OnClick-Ereignis Wiederholen

[Freddy7]

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]