| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нажать клавишу мыши!

ssss ©   (2006-11-30 20:00:00) 

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

---

ssss   (2006-11-30 23:03:00) [1]

спс всем разобрался

---

Алхимик   (2006-11-30 21:36:00) [2]

Кусок из программы для "баловства". Тыркал в молодости по банерам :)
procedure ConverCoord(var APt: TPoint);
begin
  {Преобразуем Pt к координатам экрана}
  APt := ClientToScreen(APt);
  {Преобразуем Pt к "mickeys" (аболютным координатам курсора мышки}
  APt.x := Round(APt.x * (65535 / Screen.Width));
  APt.y := Round(APt.y * (65535 / Screen.Height));
end;

procedure MouseClick(X, Y: integer);
var
  Pt: TPoint;
begin
  {Прибавим смещение для WebBrowser1}
  Pt.x := X + WebBrowser1.Left;
  Pt.y := Y + WebBrowser1.Top;
  ConverCoord(Pt);
  {Переместим курсор мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  {Имитируем нажатие левой кнопки мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
  {Имитируем нажатие левой кнопки мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;
Подробности в справке и документации

---

Правильный Вася   (2006-11-30 21:31:00) [3]

а протащить мышу по столу програмно можно?

---

ssss   (2006-11-30 20:24:00) [4]

А по подробнее если можно напримере!

---

Джо   (2006-11-30 20:20:00) [5]

mouse_event Function

---

Наверх