如何让回车键不换行？

Question

在一个memo里，在keypress事件里判断回车键，当回车键按下时，执行一个操作，但不要在memo里换行。请问如何实现？

Answer 1

if key=#13 then
   key=#0

Answer 2

if key=#13 then
   key=#0

Answer 3

if key=#13 then
begin
   key:=#0;
   执行下一操作;
end;

Answer 4

不错，在memo1,richedit可以不让enter键回来。
但我用的是RxRichEdit，以上的代码就不起作用了耶，有谁知道是怎么一回事吗？

Answer 5

看RxRichEdit是不是有属性将enter键屏敝掉了。
RxRichEdit没用过

Answer 6

你是哪个公司的怎摸会有RxRichEdit组建，如果告诉我，我将替你解决。

Answer 7

RxRichEdit在网站都可以下载到，干嘛问我要呵TO rouqing(*柔情似水&冷酷到底*) 
如何过滤消息呢

Answer 8

procedure TMemo1.WndProc(...)
begin
  if msg=vk_enter then
  ...
  ...
end;
可能要自己写个组件了，拦截消息处理

Answer 9

jacket008(§优国优民§) 方法簡單實用可以用

Answer 10

if key=#13 then
begin
   key:=#0;
   执行下一操作;
end;

Answer 11

if key=#13 then
begin
   key:=#0;
   执行下一操作;
end;

Answer 12

//要把事件放在KeyDown裡面;
procedure TForm1.RxRichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=word(#13) then begin
    key:=word(#0);
    ShowMessage ('Thanks!');
  end;
end;