На примере компонента 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;
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (ssCtrl in Shift) and (Key = VK_SPACE) then
ShowMessage('Нажата комбинация клавиш Ctrl+Space');
end;
хорошо. помогло мне))))) но использовал другое))))
ОтветитьУдалитьif (ssAlt in Shift) and (Key = VK_DELETE) then form1.Memo1.Clear;