Beim gedrücktem Button hochzählen lassen, bis ich loslasse

[Sharky]

Hai valon,

der Gedanke von Dir ist schon richtig. Mache es mit einem Timer und dem .OnMouseDown bzw. OnMouseUp Ereigniss:

Delphi-Quellcode:

var
 zaehler : Integer = 0;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 500;
  Timer1.Enabled := True;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc (Zaehler);
  Label1.Caption := IntToStr (zaehler);
end;