Hi,
die Komponente
TApplicationEvents habe ich auf das Formular gesetzt und beim Event
onMessage folgenden Code eingefügt:
Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.hwnd = self.DirectoryListBox1.Handle then
case Msg.message of
WM_RBUTTONDOWN : SendMessage(self.DirectoryListBox1.Handle, WM_LBUTTONDOWN, Msg.wParam, Msg.lParam);
WM_RBUTTONUP : SendMessage(self.DirectoryListBox1.Handle, WM_LBUTTONUP, Msg.wParam, Msg.lParam);
WM_RBUTTONDBLCLK : SendMessage(self.DirectoryListBox1.Handle, WM_LBUTTONDBLCLK, Msg.wParam, Msg.lParam);
end;
end;
Ansonsten könnte man es wegen WM_RBUTTONDBLCLK wohl noch mit subclassing machen. Wenn du mit der Rechten Maustaste noch was anderes machen möchtest, kannst du den Code ja noch erweitern.