Мышь за пределами формы |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Мышь за пределами формы |
-Роман- |
Сообщение
#1
|
Гость |
Как определить нажатие кнопки мыши за пределами формы?
|
andriano |
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 168 Пол: Мужской Реальное имя: Сергей Андрианов Репутация: 28 |
Насколько мне известно, непосредственно это не делается. Разве что "подложить" под форму окно, распахнутое на весь экран, и получать сообщения уже от этого окна.
Сообщение отредактировано: andriano - |
-Роман- |
Сообщение
#3
|
Гость |
Кажется сам разобрался.
Создаём Timer1, В OnTimer пишем: procedure TForm1.Timer1Timer(Sender: TObject); var MyMouse: TMouse; MyPosX, MyPosY: integer; sm:smallint; begin MyPosX := MyMouse.CursorPos.X; MyPosY := MyMouse.CursorPos.Y; Label8.Caption := IntToStr(MyPosX); Label9.Caption := IntToStr(MyPosY); sm := GetKeyState(VK_LBUTTON); if OldZn <> sm then begin Label10.Caption := Label8.Caption; Label11.Caption := Label9.Caption; end; OldZn:= sm; end; Не забываем создать глобальную OldZn: smallint; |
Текстовая версия | 20.04.2024 2:09 |