Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с курсором мыши

Автор: kwotz 14.4.2007, 17:16

Вот хотелось бы сделать так, чтобы через некоторое время курсор переехал на определенные координаты (х,у) экрана и сделал клик. Что нужно для этого? Толкните меня в правильное русло!

Автор: Alexeis 14.4.2007, 19:51

Переехать можно так Mouse.CursorPos := POINT(20, 20);

Добавлено через 9 минут и 57 секунд
Потом можно поискать окно которое находиться под ним при помощи API функции

Код


HWND WindowFromPoint(          POINT Point
);

И послать ему сообщения WM_LBUTTONDOWN и WM_LBUTTONUP

Автор: Letov 24.4.2007, 22:01

Время задай в Timer. В событие OnTimer запиши нужный код.

Следующий пример показывает, как "подтолкнуть мышку" без вмешательства пользователя.

Код


procedure TForm1.Button1Click(Sender: TObject);

var
pt : TPoint;
begin
  Application.ProcessMessages;
  Screen.Cursor := CrHourglass;
  GetCursorPos(pt);
  SetCursorPos(pt.x + 1, pt.y + 1);
  Application.ProcessMessages;
  SetCursorPos(pt.x - 1, pt.y - 1);
end;

Взято из http://forum.sources.ru

Код


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;

http://delphiworld.narod.ru/
DelphiWorld 6.0

Как имитировать нажатие левой кнопки мыши?

Код


mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Автор: Farmazon 24.4.2007, 22:31

Ещё можно, двигать мышу и зминять её настройки используя переменную Mouse...