Создание собственных горячих клавиш

Сидят 2 программиста, выпучившись в мониторы. В окно влетает зеленая жирная муха и садится к одному из них на экран. Тот лихорадочно начинает кликать мышкой. Мухa не реагирует. Второй вскакивает раскручивая на ходу свою мышку бьет первого. Первый выходит из торча: "Прикинь, Вить, первый раз глюк убрал просто del!" Второй, замерев, всматривается в экран:
- Да, Миш, тебе бы переинсталить...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
    ShowMessage('Ctrl-A');
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 851 • TDictionary Custom Sort 5 955 • Fast Watermark Sources 5 744 • 3D Designer 8 561 • Sik Screen Capture 6 089 • Patch Maker 6 518 • Айболит (remote control) 6 509 • ListBox Drag & Drop 5 373 • Доска для игры Реверси 95 192 • Графические эффекты 6 724 • Рисование по маске 5 882 • Перетаскивание изображений 4 900 • Canvas Drawing 5 276 • Рисование Луны 5 004 • Поворот изображения 4 547 • Рисование стержней 3 219 • Paint on Shape 2 461 • Генератор кроссвордов 3 344 • Головоломка Paletto 2 657 • Теорема Монжа об окружностях 3 448 • Пазл Numbrix 2 275 • Заборы и коммивояжеры 2 939 • Игра HIP 1 905 • Игра Go (Го) 1 818 • Симулятор лифта 2 158 • Программа укладки плитки 1 886 • Генератор лабиринта 2 325 • Проверка числового ввода 2 013 • HEX View 2 331 • Физический маятник 1 985

Создание собственных горячих клавиш

Похожие по теме исходники