uses
Windows;
procedure PlaceMyMouse(Sender: TForm; X, Y: word);
var
MyPoint: TPoint;
begin
MyPoint := Sender.ClientToScreen(Point(X, Y));
SetCursorPos(MyPoint.X, MyPoint.Y);
end;
نقل مؤشر الماوس
شكرا على الدرس أخي
لكن ينقصه صورة أو مثال عن النتيجة .. إلخ
لتكون هناك فائدة أكبر .. خاصة لفئة المبتدئين
وفقك الله
