Doppelklick auf TListBox ohne Items

[PeterPanino]

TListBox reagiert nur dann auf einen Doppelklick (OnDblClick), wenn die ListBox mindestens ein Item enthält. Was könnte man tun, damit die ListBox auch dann auf Doppelklick reagiert, wenn kein Item enthalten ist?

[Hawkeye219]

Hallo Peter,

du könntest das MouseDown-Ereignis auswerten:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  IF (ssDouble in Shift) THEN
    ShowMessage ('Hallo Peter!');
end;

Es wird allerdings zusätzlich zum DblClick-Ereignis ausgelöst.

Gruß Hawkeye

[PeterPanino]

Funktioniert wunderbar, vielen Dank und noch einen schönen Sonntag!