Mausklick abfangen ohne Hook

[busybyte]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var w:cardinal;
S:String;
begin
SetCaptureControl(nil);
mouse.Dispatch(w);
label1.caption:= inttostr(mouse.CursorPos.X);
label2.caption:=inttostr(mouse.CursorPos.Y);

S:= 'Maus Up';
if (getasynckeystate(VK_LBUTTON)<>0) then
 S:='Maus Down';
label3.caption:=S;
end;