Alle Klicks auf Form abfangen

[Schwedenbitter]

Hallo,

ich habe wegen diverser Anforderungen ein Popup-Menü als TForm ohne Rahmen etc. selbst gebastelt. So weit, so gut.
Jetzt grüble ich schon eine ganze Weile daran, wie ich das Verhalten eines Popup-Menü auf Klicks und Tastendrücke nachbauen kann. Ich könnte jetzt bei jedem einzelnen TLabel, TComboBox etc. auf OnClick reagieren. Das wird aber unübersichtlich. Jetzt habe ich probiert, TForm.WindowProc umzuleiten. Bei TLabel funktioniert folgender Code, der aber bei TMemo und TComboBox nichts anzeigt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   fOldWndProc:= self.WindowProc;
   self.WindowProc:= FormWndProc;
end;

procedure TForm1.FormWndProc(var Message: TMessage);
begin
   case Message.Msg of
      WM_LBUTTONDOWN,
      WM_RBUTTONDOWN   :
      begin
         Memo1.Lines.Append('Jetzt');
         Message.Result:= 0;
      end;
   end;
   fOldWndProc(Message);
end;

Ich bin auch etwas ideenlos bzgl. der Suche. Aber die Suchworte "delphi form parentclick" hat mir nichts gebracht. Hat jemand eine Idee?