Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Назначение комбинации клавиш

Автор: AbekIn3D 5.1.2010, 22:03

Как вставить комбинацию клавиш Ctrl+S? Ниже пример:

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if "Нажата кнопка Ctrl и S" then
   showmessage('Вы сохранились!');
end;

Автор: Данкинг 5.1.2010, 22:13

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (ssCtrl in shift) then
 if (key=83) or (key=115) then
  showmessage('Вы лоханулись!');
end;

Автор: chip_and_dayl 5.1.2010, 22:27

Я думаю в программе есть главное меню с пунктом Сохранить!?! Вот у этой кнопочки можно поставить горячие клавишы smile

Добавлено через 5 минут и 41 секунду
свойство ShortCut