|
Вопрос # 3 926/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
мне нужно программно управлять мышью (передвижение вправо, влево, вверх, вниз, клик левой кнопкой). какими командами это можно делать?
 |
Вопрос задал: AlexMPEI (статус: 1-ый класс)
Вопрос отправлен: 25 марта 2010, 11:35
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, AlexMPEI!
Этот код ответит на Ващи вопросы
procedure TForm1.Button1Click(Sender: TObject);
var
MausPos: TPoint;
begin
GetCursorPos(MausPos);
label1.Caption := IntToStr(MausPos.x);
label2.Caption := IntToStr(MausPos.y);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SetCursorPos(600, 600);
end;
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 25 марта 2010, 11:45
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 25 марта 2010, 14:35; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 25 марта 2010, 11:56 [#1]:
Цитата (Вадим К):
Этот код ответит на Ващи вопросы
Не на все. Добавь в ответ пример использования mouse_event(). C помощью этой функции можно двигать курсор, нажимать на кнопки и крутить колесо скролла.
Цитата:
The mouse_event function synthesizes mouse motion and button clicks.
VOID mouse_event(
DWORD dwFlags, // flags specifying various motion/click variants
DWORD dx, // horizontal mouse position or position change
DWORD dy, // vertical mouse position or position change
DWORD dwData, // amount of wheel movement
DWORD dwExtraInfo // 32 bits of application-defined information
);
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
AlexMPEI (статус: 1-ый класс), 25 марта 2010, 14:35 [#2]:
Всем спасибо! Применил все. Все работает!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
