大侠,delphi中想判断ctrl+enter事件用什么方法

Question

//请参考
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN: if Shift = [ssCtrl] then ShowMessage('Ctrl+Enter');
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

Answer 1

答案没问题，但是ctrl+enter总让我想起qq回复？？？……

Answer 2

谢谢您大侠,
不瞒你说,
我正做一个聊天室的课程设计,
本想用enter发信息,
又想聊天惯了用ctrl+enter比较习惯
况且不知道怎么用判断ctrl键
我原以为shift只能判断shift键呢.
多谢了

Answer 3

不过建议你使用TActionList(动作列表)比较合理  object ActionList1: TActionList
    Left = 392
    Top = 64
    object Action1: TAction
      Caption = 'Action1'
      ShortCut = 16397//Ctrl+Enter
    end
  end