بردن موس به مختصات یک button

[M.Ehsanifar]

سلام
چطور می شه موس رو به مختصات یک button برد ، با توجه به این که تابع setCursorPos مختصات صفحه نمایش رو دریافت می کنه در حالی که مختصات یک button نسبت به فرمی که در اون قرار داره تعیین می شه (left ,Top) . و این باعث می شه که اگر فرم مورد نظر Maximize نباشه و اندازش تغییر پیدا کنه ، امکان بردن موس به مختصات Button امکان پذیر نباشه .

[SYNDROME]

با سلام
http://barnamenevis.org/forum/showthread.php?t=78749
مختصات مورد نظر Buttonرا به تابع فوق بدهید.
موفق باشید

[hossein taghi zadeh]

با سلام

برای بدست آوردن موقعیت هر کنترل نسبت به کل صفحه از تابع زیر استفاده نمائید:


Function GetPointInScreen(Const Control: TControl): TPoint;
Begin
Result := Control.Parent.ClientToScreen(Point(Control.Left, Control.Top));
End;

//For Example
Var
P: TPoint;
Begin
P := GetPointInScreen(Button1);
SetCursorPos(P.X, P.Y);
End;