Как поместить курсор мышки в нужное место на форме

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как поместить курсор мышки в нужное место на форме

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;