Скачать: CL | DM;

Простой вопрос   Найти похожие ветки 

← →
Igorek ©   (2002-11-15 13:44) [0]

В обработчике
procedure T...Control.CMMouseEnter(var Msg: TWMMouse);
надо узнать нажата ли кнопка мышки.
Msg.Keys почему-то не содержит флага MK_LBUTTON
Такой код тоже не помогает:
var
Keys: TMouseKeys;
begin
Keys.cbSize := sizeof(Keys);
SystemParametersInfo(SPI_GETMOUSEKEYS, sizeof(Keys), @Keys, 0);
if MKF_LEFTBUTTONDOWN and Keys.dwFlags <> 0 then
...

Какие еще варианты?
Простой вопрос, а ответ не могу найти быстро. Помогите, если не трудно. Спасибо.

---

← →
MBo ©   (2002-11-15 13:47) [1]

GetKeyState(VK_LBUTTON)

---

← →
Igorek ©   (2002-11-15 13:53) [2]

> MBo © (15.11.02 13:47)

Спасибо. Как оперативно. Странно, что она в разделе Keyboard Input Functions. Поэтому и не нашел.

---

← →
MBo ©   (2002-11-15 13:55) [3]

>она в разделе Keyboard Input Functions
Ну это же ее основное предназначение

Самому не так давно подсказали ;)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c