Форум: "Начинающим";
Текущий архив: 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.045 c