OnClick-Ereignis Wiederholen

[Freddy7]

Yo, auch ne gute Idee. Hab Deine Lösung implementiert, da sie ja noch deutlich einfacher ist (nur eine Ereignisroutine statt zwei. Zudem brauche ich keine globale Variable).

Du meinstest natürlich die MouseDown-Routine und nicht die Click-Routine. Ich hab das entsprechend geändert.

Delphi-Quellcode:

procedure Tfrm_ProMonZ.DemoButton[b]MouseDown[/b](Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
  while GetKeyState(VK_LBUTTON)<0 do 
  begin 
    //Anweisungen 
    Application.ProcessMessages; 
  end; 
end;

Gruss,
Heiko

[edit=Luckie]Delphi-Tags gesetzt. Beim nächsten mal bitte selber machen. Mfg, Luckie[/edit]