Вопрос
Как узнать состояние управляющих клавиш — [Shift], [Ctrl], [Alt]?
Ответ
function IsKeyDown(vk: Word):Boolean;
begin
Result := GetKeyState(vk) and $8000 = $8000;
end;
vk для Ctrl, Shift, Alt соответственно равны: vk_control, vk_shift и vk_menu
Из конференции Delphi
Copyright 
2000-2004 Сообщество Чайников
Контактная информация