SpeedButton.Click wiederholen bis Maustaste losgelassen wird

[Schwedenbitter]

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

[Mysterio08]

Ich hätte noch einen anderen Ansatz:
Du kannst dir die Sprachanweisung Sleep() zu nutze machen. In die runden Klammern gibst du einfach das Intervall des Timers ein, so benötigst du nicht eine extra Komponente. Mit if Button = mbLeft then... könnte man das OnMouseDown-Ereignis überprüfen, ob die linke Maus-Taste noch gedrückt ist (und das OnMouseUp natürlich auch).

Ich hab leider keine Zeit, werde es aber bei Gelegenheit mal ausprobieren.

[Schwedenbitter]

Zitat:

Zitat von Mysterio08

Ich hätte noch einen anderen Ansatz:
Du kannst dir die Sprachanweisung Sleep() zu nutze machen. In die runden Klammern gibst du einfach das Intervall des Timers ein, so benötigst du nicht eine extra Komponente. Mit if Button = mbLeft then... könnte man das OnMouseDown-Ereignis überprüfen, ob die linke Maus-Taste noch gedrückt ist (und das OnMouseUp natürlich auch).

Danke erstmal für den Hinweis! So ganz verstehe ich das mit dem Sleep aber nicht.
Das Problem besteht darin, dass OnMouseDown leider nur 1x und nicht ständig während des Gedrückt-Haltens der Maus-Taste. Wäre es anders, würde ich das mit dem Sleep() nachvollziehen können.

Zitat:

Zitat von Mysterio08

Ich hab leider keine Zeit, werde es aber bei Gelegenheit mal ausprobieren.

Hast Du/hat jemand anderes es schon einmal ausprobieren können?

Meinen Code habe ich zusammengeschrumpft, finde ihn aber immer noch umständlich:

Delphi-Quellcode:

Var
  FForward   : Boolean;

procedure TForm1.BTimerTimer(Sender: TObject);
begin
  BTimer.Enabled:=False;
  If FForward Then
  begin
    If I < MaxInt Then Inc(I);
  end
  else
  begin
    If I > 0 Then Dec(I);
  end;
  Label1.Caption:=FormatFloat('0,',I);
  BTimer.Enabled:=False;
end;

procedure TForm1.SpeedButtonsMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Begin
  FForward:=(Sender = SpeedButton1);
  BTimerTimer(nil);  //<- Klick soll sofort einen Effekt haben
End;

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

Und ich sehe ein weiteres Problem:
Ich blätter mit meinem Programm durch Bilddateien. Bei großen Bildern dauert das Laden manchmal ziemlich lange. Daher halte ich den Timer auch zwischendurch an. Wenn ich jetzt die Maus-Taste loslasse, während das Programm noch die Befehle im Ereignis OnTimer() abarbeitet, wird BTimer.Enabled zunächst auf False gesetzt (=erwünscht), danach dann aber in OnTimer() sogleich wieder auf True (=unerwünscht). Bis jetzt hatte ich bei meinen Tests noch keine Probleme. Aber ich möchte das dennoch absichern :lol:
Kann ich das noch irgendwie lösen?

Gruß, Alex

[s.h.a.r.k]

Ich hätte hierfür zunächst auch einen Timer genommen, nur würde ich das ganze dann logarithmisch aufbauen, so wie die Spin-Komponenten.

Alternativ könntest du einen Thread anwerfen, wobei das vielleicht etwas zu viel des guten ist ;) Es muss halt etwas parallel dazu laufen und den Wert immer wieder erhöhen, wobei du dann eben unbedingt darauf achten musst, dass das alles Thread-safe ist!

Edit: Die VCL macht das via eines Timers!

[Schwedenbitter]

Muss ich mich doch als Gelegenheitsprogrammierer outen:

Was bedeutet es, wenn Du von

Zitat:

Zitat von s.h.a.r.k

... logarithmisch aufbauen ...

sprichst?

Dass es die VCL auch über einen Timer macht, macht mir ja schon einmal Mut. Insoweit denke ich, dass mein Code gar nicht so schlecht ist. Mein Problem löse ich nun dadurch, dass ich mir zusätzlich zum Timer.Enabled in einer weiteren Boolean-Variable noch merke, obe geblättert werden soll oder nicht. Troztdem lerne ich gern dazu ... auch und vor allem was logarithmisch bedeutet!

Gruß und Danke, Alex

[himitsu]

Zitat:

Zitat von Schwedenbitter

Was bedeutet es, wenn Du von

Zitat:

Zitat von s.h.a.r.k

... logarithmisch aufbauen ...

sprichst?

Je länger man "zusammenhängend" drückt, um so schneller werden die Veränderungen, also um so schneller zählt der Wert weiter.

So kann man für kleine Wertänderungen langsam anfangen
und kann gleichzeitig auch große Veränderungen vornehmen, ohne ewig gedrückt halten zu müssen.

[GPRSNerd]

Hi, ich benutze für so eine Einstellung auch einen Timer und zusätzlich einen Counter, der einen Multiplikationsfaktor einstellt, je nachdem wie oft der Timer schon getriggert wurde:

Delphi-Quellcode:

procedure TForm_Main.tSetTimeTimer(Sender: TObject);
begin
  Inc(Einstellen_Count); //Zählen wie oft schon ausgeführt

  //Beschleunigung einstellen
  case Einstellen_Count of
    0.. 5: Richtung_Einstellen := 1;
    6..10: Richtung_Einstellen := 5;
    else
      Richtung_Einstellen := 10;
  end;

  //Hier den Wert deiner Variablen entsprechend erhöhen/erniedrigen...

end;

[s.h.a.r.k]

Denkbar wäre auch, dass sich das Interval, in dem der Timer feuert, ändert, wobei man erroieren müsste, was für den User am sinnvollsten wäre.

[Schwedenbitter]

Zitat:

Zitat von s.h.a.r.k

Denkbar wäre auch, dass sich das Interval, in dem der Timer feuert, ändert, wobei man erroieren müsste, was für den User am sinnvollsten wäre.

Das geht bei mir leider nicht, weil das Lesen der Bilddateien von der Festplatte und das Entpacken (png) seine Zeit dauert. Aber die Idee ist Spitze, mit zunehmender Dauer des Drückens z.B. 1 oder 2 Seiten zu überspringen. Ich werde das mal ausprobieren.

1000-Dank, Alex