如何处理组合键，如Ctrl + Alt + Q(50分)

我想在Memo中按一个组合键就去运行一条命令，我开始的作法是定义了一
个全局变量，在KeyDown事件中如果有一个键被按下(如Ctrl)记它为True,
然后在KeyPress中再同时判断是否这个值为True和是否有按“Q”。
不过试过之后好象没用。

试试在KeyDown事件如下书写：

procedure TForm1.Memo1KeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and ( ssAlt in Shift ) and (Key = Ord('Q'))
Then
begin
ShowMessage('哈，成功了！！')
//执行你的函数
End;
end;

接受答案了.