Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Вниз

Нажать клавишу мыши!   Найти похожие ветки 

← →
ssss   (2006-11-30 20:00) [0]

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

---

← →
Джо ©   (2006-11-30 20:20) [1]

mouse_event Function

---

← →
ssss   (2006-11-30 20:24) [2]

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

---

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

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

---

← →
Алхимик ©   (2006-11-30 21:36) [4]

Кусок из программы для "баловства". Тыркал в молодости по банерам :)
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;
Подробности в справке и документации

---

← →
ssss   (2006-11-30 23:03) [5]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c