вторник, 30 октября 2012 г.

Delphi. Как отследить нажатие комбинации клавиш?

На примере компонента Memo отслеживаем нажатие комбинации клавиш Ctrlt+Space:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = VK_SPACE) then
    ShowMessage('Нажата комбинация клавиш Ctrl+Space');
end;

1 комментарий:

  1. хорошо. помогло мне))))) но использовал другое))))
    if (ssAlt in Shift) and (Key = VK_DELETE) then form1.Memo1.Clear;

    ОтветитьУдалить