Здравствуйте, Гость
Среда, 08.02.2012
Отловить зажатую клавишу Shift
Автор: Борисов Сергей 
Как же выполнить другое действие если нажата клавиша Shift. Например, если в момент нажатия кнопки на форме будет зажата клавиша Shift, нужно выполнить определенное действие. Например:
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetKeyState(VK_SHIFT) < 0 then
ShowMessage('Кнопка Shift зажата')
else
ShowMessage('Кнопка Shift НЕ зажата');
end;
-
Гинекология, педиатрия, терапия и др. О клинике и персонале.
22clinic.ru
Просмотров: 2650
|
0
 
(24.06.2011) 1. Андрей
Спасибо! Очень помог! Всё работает!
|
On-line статистика:
Онлайн всего: 4
Гостей: 3
Пользователей: 1
Статистика:
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz