WndProc funktioniert nicht mit Buttons auf Formular

[TeTSuO]

Hallo das Problem hatte ich auch bei mir war es ein Panel das ich abfragen wollte

Ich habe lange gesucht und habe dann rausgefunden das "Message.Msg = WM_PARENTNOTIFY" bei klick auf mein Panel war und "Message.WPARAM" dann "WM_LBUTTONDOWN" war also probier mal folgendes

Delphi-Quellcode:

procedure TForm1.WndProc(var Message: TMessage); 
var 
  MausPos: TPoint; 
  control: TControl; 
begin 
  If (Message.Msg = WM_LBUTTONDOWN) or
     ((Message.Msg = WM_PARENTNOTIFY) and (Message.wParam = WM_LBUTTONDOWN)) then begin 
    GetCursorPos(MausPos); 
    MausPos := ScreenToClient(MausPos); 
    control := form1.ControlAtPos(MausPos, false, true); 
    if control = nil then 
      debugdatei.schreiben('WndProc: WM_LBUTTONDOWN --- nil ---') 
    else 
      debugdatei.schreiben('WndProc: WM_LBUTTONDOWN ' + control.Name); 
  end; 
  inherited WndProc(Message); 
end;