TImage Doppelklick bei gesetzten OnClick Event

[nuclearping]

Zitat von Dejan Vu:

Das zweite 'OnClick'-Event (also beim zeiten Click des Doppelklicks) wird *nicht* ausgelöst. Da kann man keine Verzweigung einbauen.

Ah ja klar, logisch. Stimmt, da stand ich auf dem Schlauch. In dem Fall braucht man wirklich einen "Timer".

[hathor]

Ich habe hier was Schönes gefunden:
Es nennt sich TRIPLECLICK...
http://blog.unicornsoft.tk/2011/10/t...in-delphi.html

EXE und SOURCE sind im Anhang.

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    ListBox1: TListBox;
    TripleClickTimer: TTimer;
    Memo1: TMemo;
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure TripleClickTimerTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
        TripleClick : Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure MM(s:string);  begin Form2.Memo1.Lines.Add(s); end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Memo1.Lines.Add(' ListBox1Click: startet einen Timer');
Memo1.Lines.Add(' ListBox1DblClick: Auswertung');
end;

procedure TForm2.ListBox1Click(Sender: TObject);
begin
  TripleClick := TripleClickTimer.Enabled;
end;

procedure TForm2.ListBox1DblClick(Sender: TObject);
begin
  TripleClick := False;
  TripleClickTimer.Interval := GetDoubleClickTime();
  TripleClickTimer.Enabled := True;
  while TripleClickTimer.Enabled do
    begin
      Application.ProcessMessages;
    end;
  if TripleClick  then
    MM ('Triple click on item: ' + ListBox1.Items[ListBox1.ItemIndex])
  Else
    MM ('Double click on item: ' + ListBox1.Items[ListBox1.ItemIndex]);
end;

procedure TForm2.TripleClickTimerTimer(Sender: TObject);
begin
  TripleClickTimer.Enabled := False;
end;
end.

[Luki206]

Ok ich komm jetzt nicht mehr mit , brauche ich jetzt den Timer? Wenn ja ist das so wie Hathor es beschrieben hatte die Lösung?

[Dejan Vu]

Versuchs auch mal mit meiner. Mit der bekommst Du einen Einfachklick-Ereignis, wenn nur 1x geklickt wurde (und nicht doppelt) oder ein Doppelklick-Ereignis (aber kein Einfachklick), wenn doppelt geklickt wurde. Ich habe dich so verstanden, das Du entweder ein Einfachklick (exklusiv) oder ein Doppelklick-Ereignis haben willst.

Das Tripleklick ist .. hüstel.. ähm... äh. für die Tonne. Wegen dem hier:

Delphi-Quellcode:

while TripleClickTimer.Enabled do
begin
  Application.ProcessMessages;
end;

Da hat jemand eine Lösung auf deibelkommraus gesucht. Sowas geht gar nicht, finde ich. Triple- Quadrupel etc. Clicks kannst Du sehr schön mit hathor's Lösung bekommen, indem Du die 'BU'-IF-Schleife Abfrage anpasst

[Luki206]

Ok Danke, nur ist das so das ich mit den Hints der Images arbeite und diese ja dann im Timer nicht verfügbar sind (bzw. nicht ohne variablen Gedöns). Gibt es eine Möglichkeit wie ich die Variable umgehen kann oder muss ich es so machen?

Danke Luki

PS: Sorry das ich mich erst jetzt wieder melde aber mein Rechner ist kaputt gegangen und ich habe auf die Schnelle nichts neues Gefunden..

[Sir Rufo]

Was haben denn jetzt die Hints mit dem Klicken zu tun?

[Luki206]

Folgendes: Da es mehrere TImage's gibt, muss ich zum unterscheiden diese mit Hints versehen und Prüfe diese dann mit TImage(Sender).Hint ... und wenn ich mir das jetzt ansehe

Zitat von Dejan Vu:

Delphi-Quellcode:

Procedure TMyForm.FormCreate(Sender : TObject);
Begin
  DeferredClickTimer.Enabled := False;
  DeferredClickTimer.Interval := GetDoubleClickInterval()+50; // Ich glaub, die Methode heißt so.
End;

Procedure TMyForm.MyControlClick(Sender : TObject);
Begin
  DeferredClickTimer.Enabled := False;
  DeferredClickTimer.Enabled := True;
End;

Procedure TMyForm.MyControlDoubleClick(Sender : TObject);
Begin
  DeferredClickTimer.Enabled := False;
  ExecuteTheDoubleClickMethod();
End;
Procedure TMyForm.DeferredClickTimerTimer(Sender : TObject);
Begin
  DeferredClickTimer.Enabled := False;
  ExecuteTheClickMethod();
End;

muss ich ja dann den Hint bzw. den String an den Timer weitergeben und deshalb frage ich ob es nicht eine andere Methode gibt als über eine Variable