سلام مجدد به همه عزیزان
راهش رو پیدا کردم و با یه توضیح مختصر مینویسمش شاید یه جایی به درد کسی بخوره .
در زمان نوشتن کامپوننت یه تایمر رو میسازیم و اجرای یه پروسیژر رو به رویداد OnTimer اون اختصاص میدیم .
مثال :
constructor T*****.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FTimer := TTimer.Create(Self);
with FTimer do begin
Enabled := FALSE;
Interval := 1;
OnTimer := MousePositionControl;
end;
.
.
.
بعد پروسیژر :
procedure T*****.MousePositionControl(Sender:TObject);
var
P: TPoint;
FMX, FMY: Word;
begin
P := Mouse.CursorPos;
P := Self.ScreenToClient(P);
FMX := P.x;
FMY := P.y;
.
.
.
متغیرهای FMX , FMY موقعیت نشانگر ماوس روی کامپوننت در زمان اجرا رو برمیگردونن .
ایشالا مفهوم بوده باشه توضیحاتم .