Delphi中使用TRichEdit或TMemo模仿QQ按Ctrl+Enter发送信息,屏蔽换行

    最近写了一个小的局域网聊天的小程式，在模仿QQ的按Ctrl+Enter发送信息。

    刚开始的写法是这样的：添加一个TMemo控件，名称是memoMessage，在它的onKeyDown事件中这样写：

 

procedure TfrmMain.memoMessageKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in shift) then begin if key = $D then begin key := $0; //发送信息的代码 end; end;

 

    发现在按Ctrl+Enter之后，可以发送信息，但是memoMessage会换行。百度以后发现有以下两个方法可以解决这个问题：

1.在它的onKeyPress中加入如下代码：

procedure TfrmMain.memoMessageKeyPress(Sender: TObject; var Key: Char); begin if key = #10 then //Ctrl+Enter对应的Key是#10，如果是#10，则把它置为#10. begin key := #0; end; end;

 

2.加入一个TActionList控件，然后给它创建一个Action，将这个Action的快捷键ShortCut属性设置为Ctrl+Enter（下拉中没有这个快捷键，可以自己写进去），然后将代码写到Action的OnExecute事件中。