Показать сообщение отдельно
  #3  
Старый 24.03.2013, 15:49
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

читай Return Values у GetKeyState.

Код:
  if (GetKeyState(VK_LBUTTON) and $80000000)>0 then
    Label1.Caption:='down'
  else
    Label1.Caption:='up';
__________________
Пишу программы за еду.
__________________
Ответить с цитированием