DirectoryListBox: Beide Maustasten mit einem OnClick?

[zecke]

:hi:

Also ich habe eine DirectoryListBox und möchte für die rechte Maustaste genauso benutzen wie die Linke. Mit der rechten Maustaste markieren und anklicken können, als wär's die Linke.

Ich fange quasi ab, welche der beiden Tasten gedrückt wird und führe dementsprechend einen Codeschnipsel aus. Mit der Linken klappt alles locker flockig. Wenn ich jetzt die Rechte drücke, soll etwas Anderes gemacht werden. Das Problem, es wird mit der rechten Maustaste keine Selektion durchgeführt, ich kann also im Grunde nicht gescheit reagieren. :?

Weiß jemand Rat?

Ich danke im voraus :mrgreen:

[bitsetter]

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.