Текущий архив: 2006.02.12;
Скачать: CL | DM;
Вниз
Управление курсором мыши Найти похожие ветки
← →
Proxytel © (2006-01-25 14:40) [0]Подскажите простейшие способы управления координатами курсора мыши.
Как при этом сэмулировать нажатие левой клавиши мыши?
← →
Rentgen © (2006-01-25 15:42) [1]Нажатие левой кнопки:
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
Двигаем курсор:procedure TForm1.Button1Click(Sender: TObject);
var
S : TPoint;
begin
Application.ProcessMessages;
Screen.Cursor := CrHourglass;
GetCursorPos(S);
SetCursorPos(S.x + 1, S.y + 1);
Application.ProcessMessages;
SetCursorPos(S.x - 1, S.y - 1);
end;
← →
Proxytel © (2006-01-25 16:30) [2]Почему при нажатии Button1 курсор меняется на песочные часы?
← →
Proxytel © (2006-01-25 17:04) [3]как теперь взять координаты мыши в данный момент на экране?
Страницы: 1 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
