Auf Doppelklick "warten"

[Christian Seehase]

Moin Reaper,

probier's mal hiermit:

Delphi-Quellcode:

var
  Form1: TForm1;
  dwDblClickTime : DWORD;
  fProcessingDblClick : boolean;

implementation

{$R *.DFM}

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
  fProcessingDblClick := true;
  Label2.Caption := 'DoubleClick';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Reset';
  Label2.Caption := 'Reset';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  dwDblClickTime      := GetDoubleClickTime;
  fProcessingDblClick := false;
end;

procedure TForm1.ListView1Click(Sender: TObject);

var
  dwDelay : DWORD;

begin
 dwDelay := GetTickCount;
 While (GetTickCount-dwDelay) < dwDblClickTime do Application.ProcessMessages;
 if fProcessingDblClick then begin
   fProcessingDblClick := false;
   exit;
 end;
 Label1.Caption := 'Click';
end;