Hi,
ich möchte alle Clicks auf ein Formular mitloggen.
Dabei soll u. a. auch der Komponentenname mitgeloggt werden.
Ich wollte dies mit WndProc des Formulars machen, doch leider werden
nur Clicks auf die Formularebene oder auf labels registriert.
Für Clicks auf Buttons wird mein WndProc NICHT aufgerufen - kann mir
jemand sagen, warum das so ist (und wie ich es besser machen kann...)
Delphi-Quellcode:
procedure TForm1.WndProc(var Message: TMessage);
var
MausPos: TPoint;
control: TControl;
begin
If Message.Msg = 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;
Schon mal danke
Poolspieler