Мышь за пределами формы |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Мышь за пределами формы |
-Роман- |
Сообщение
#1
|
Гость |
Как определить нажатие кнопки мыши за пределами формы?
|
-Роман- |
Сообщение
#2
|
Гость |
Кажется сам разобрался.
Создаём 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; |
Текстовая версия | 2.05.2024 19:34 |