mouse focus follow

[Beckman]

es funkt jedenfalls recht super mit 100ms timer und das sollte auch nich zu viel fuers system sein...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  curpos: TPoint;
begin
getcursorpos(curpos);
label1.Caption := inttostr(integer(windowfrompoint(curpos)));
end;

danke!