Einzelnen Beitrag anzeigen

Schwedenbitter

Registriert seit: 22. Mär 2003
Ort: Finsterwalde
622 Beiträge
 
Turbo Delphi für Win32
 
#1

SpeedButton.Click wiederholen bis Maustaste losgelassen wird

  Alt 20. Jan 2010, 15:07
Hallo,

möglicherweise gibt es zu meiner Frage im Forum schon eine Antwort. Ich habe aber - möglicherweise mangels der Suchworte - nichts gefunden.
Ich habe auf einem Form 2 TSpeedButtons. Beim Klick auf den einen wird ein Zähler erhöht und beim anderen eben verringert. Bei großen Zahlen nervt es aber, wenn man immer wieder klicken muss. Ich möchte daher erreichen, dass er beim Klick anfängt zu zählen und beim Loslassen der Maustaste wieder aufhört; so wie bei einem TUpDown.

Im Moment habe ich das umständlich so gemacht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
   I:=0;
end;

procedure TForm1.BTimerTimer(Sender: TObject);
begin
   If I > 0 Then Dec(I);
   Label1.Caption:=FormatFloat('0,',I);
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   BTimer.Enabled:=True;
end;

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

procedure TForm1.FTimerTimer(Sender: TObject);
begin
   If I < MaxInt Then Inc(I);
   Label1.Caption:=FormatFloat('0,',I);
end;

procedure TForm1.SpeedButton2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   FTimer.Enabled:=True;
end;

procedure TForm1.SpeedButton2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   FTimer.Enabled:=False;
end;
Geht das auch einfacher?
Ich wäre auch für Links oder eben passende Suchwörter sehr dankbar.

Gruß, Alex
Alex Winzer
  Mit Zitat antworten Zitat