تشخیص این که موس کجا و روی چه شیئی حرکت می کند؟

[mamizadeh]

به نام خدای مهدی
با سلام
دوست عزیز روی یک تایمر بنویس

procedure TForm1.Timer1Timer(Sender: TObject);
Var p : TPoint;
h : THandle;
buf : Array[0..255] of Char;
begin
GetCursorPos(p);
h := WindowFromPoint(p);
SendMessage(h, WM_GETTEXT, 255, Integer(@Buf));
Form1.Caption := Buf;
end;