ورود

View Full Version : پرش کرسر موس(Cursor Mouse) بر روی دکمه ای که (SetFocus) شده


mrpn123
یک شنبه 19 اسفند 1386, 12:05 عصر
سلام من میخوام کرسر موس را روی دکمه ای که دیفالت یا فوکوس شده حرکت کنه مثل پنجره open project خود دلفی که وقتی بازش میکنی کرسر به روی دکمه open پرش میکنه
در ضمن در این تالار سرچ کردم نبود کسی نیاد متلبو پاک کنه ها

ممنون
vcldeveloper
یک شنبه 19 اسفند 1386, 17:10 عصر
با SetCursorPos می تونید اشاره گر موس رو حرکت بدید. با GetCursorPos هم مکانش رو بدست بیارید.
ParsaNM
یک شنبه 19 اسفند 1386, 17:21 عصر
با کدی شبیه این می تونی این کار رو بکنی





procedure TForm1.Button1Click(Sender: TObject);
var
X, Y: Integer;
begin
X := Screen.ActiveControl.ClientOrigin.X;
Y := Screen.ActiveControl.ClientOrigin.Y;
SetCursorPos(X,Y);
end;