Отловить нажатие двух клавиш

[Сид]

При обработке нажатия одной клавиши выводит без проблем:

if (Key = 16) then 
 Memo2.SelText := 'tratata';

А вот с двумя в Memo ничего не выводится:

  
if (Key = 16)and(Key = 70) then
   Memo2.SelText := 'tratata';

Как поступить?

Для справки 16-это Shift, а 70-это ' f '.

[Marsel737]

Сид, я уже создавал похожую тему, там есть решение вашей проблемы:Клик-Клак

[raxp]

единственно, что в данном случае я бы ввел некоторые доработки...

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (ssshift in shift)and(key= ord('F')) then Memo1.SelText:= 'tratata' // без key = #0, будет введен 'tratataf'
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 If ((GetKeyState(VK_SHIFT) AND 128)=128) and
    ((GetKeyState(ord('F')) AND 128)=128) then key:=#0 // не дает ввести f
end;

key в #0 нужно для устранения трех вещей:
1- если производить замену выделенной части, то при этом вместе с tratata будет введен и f, т.е. tratataf... key не дает этого сделать
2- так key не дает собственно при этом ничего ввести, нужно ограничить его только комбинацией shift+f
3- устараняет неприятный звук бум, как уже обсуждалось как-то