Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.17;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
2-1164460129
asdqwer
2006-11-25 16:08
2006.12.17
Открытие файла, не закрытого другой программой


15-1164462735
Оззя
2006-11-25 16:52
2006.12.17
1-е число Мерсенна


2-1164985032
alex810
2006-12-01 17:57
2006.12.17
Создание хэлпов


15-1164699123
Prohodil_Mimo
2006-11-28 10:32
2006.12.17
У кого установлен IE7, помогите


15-1164550562
pumba
2006-11-26 17:16
2006.12.17
Прогу в вуз по базам данных