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

Сидят 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 (Тетрис) 4 840 • TDictionary Custom Sort 6 830 • Fast Watermark Sources 6 608 • 3D Designer 9 575 • Sik Screen Capture 6 949 • Patch Maker 7 395 • Айболит (remote control) 7 345 • ListBox Drag & Drop 6 203 • Доска для игры Реверси 98 209 • Графические эффекты 7 518 • Рисование по маске 6 800 • Перетаскивание изображений 5 656 • Canvas Drawing 6 034 • Рисование Луны 5 825 • Поворот изображения 5 275 • Рисование стержней 3 868 • Paint on Shape 3 022 • Генератор кроссвордов 3 980 • Головоломка Paletto 3 155 • Теорема Монжа об окружностях 3 996 • Пазл Numbrix 2 636 • Заборы и коммивояжеры 3 450 • Игра HIP 2 364 • Игра Go (Го) 2 283 • Симулятор лифта 2 678 • Программа укладки плитки 2 241 • Генератор лабиринта 2 798 • Проверка числового ввода 2 401 • HEX View 2 743 • Физический маятник 2 429

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

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