Сидят 2 программиста, выпучившись в мониторы. В окно влетает зеленая жирная муха и садится к одному из них на экран. Тот лихорадочно начинает кликать мышкой. Мухa не реагирует. Второй вскакивает раскручивая на ходу свою мышку бьет первого. Первый выходит из торча: "Прикинь, Вить, первый раз глюк убрал просто del!" Второй, замерев, всматривается в экран:
- Да, Миш, тебе бы переинсталить...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
beginif (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
ShowMessage('Ctrl-A');
end;
Статья Создание собственных горячих клавиш раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.
