在RichEdit控件中使用ctrl+enter快捷键的问题

Question

我想在RichEdit控件中使用ctrl+enter快捷键,但当按下组合键ctrl+enter时,
回车键起作用了,每按一次组合键,就会插入一个换行.按组合键的时候,也不会
出发OnKeyPress事件,不能通过key:=#0来屏蔽回车键.要怎么做才能实现在按
组合键ctrl+enter时,richedit不接受enter键产生的换行?procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin  if (key=vk_return) and (ssCtrl in shift) then
  begin
      showmessage('KeyDown');
  end;end;procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
      showmessage('KeyPress');
  end;
end;

Answer 1

估计你要用hotkey或hook来处理了

Answer 2

找到了
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure RichEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RichEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure hotykey(var msg:TMessage); message WM_HOTKEY;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  HotKey:Integer;implementation{$R *.dfm}procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin  if (key=vk_return) and (ssCtrl in shift) then
  begin
      showmessage('KeyDown');
  end;end;procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
      //showmessage('KeyPress');
  end;
end;procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=13) then
begin
  ShowMessage('你按了ctrl+enter');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
HotKey:=GlobalAddAtom('HotKey');
RegisterHotKey(handle,HotKey,mod_control,13); end;procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,HotKey);
end;end.

Answer 3

//这样处理好像更简单一些
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=vk_return) and (ssCtrl in shift) then
  begin
      self.RichEdit1.ReadOnly:=true;
      showmessage(self.RichEdit1.Text);
  end;
  self.RichEdit1.ReadOnly:=false;
end;