OnClick-Ereignis Wiederholen

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Freddy.

Hier ein Muster ohne Wert:

Delphi-Quellcode:

procedure TDemoForm.DemoButtonMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: Integer;
begin
  // DemoButtonDown bitte als private variable von Form deklarieren
  DemoButtonDown := true;  
  i := 0;
  while DemoButtonDown do
  begin
    Inc(i);
    StatusBar.SimpleText := IntToStr(i);
    Application.ProcessMessages;
  end;
end;

procedure TDemoForm.DemoButtonMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  DemoButtonDown := false;
end;

Falls du die Maus nicht festhalten willst, dann nimmst du einen Button mit der Eigenschaft Down.

Freundliche Grüße vom marabu