qq_30877677
qq_30877677
2016-07-18 04:01
采纳率: 36.7%
浏览 1.6k
已采纳

Delphi Memo 控件 回车事件

情景:
Delphi XE 10 有两个Memo 在点击回车按钮时将第一个Memo的值赋值给第二个Memo,同时清空第一个Memo。

问题:
第一个Memo清空后会出现一行空行如图所示
图片说明
需要如何才能做到像qq一样点击回车的时候只进行赋值而不添加回车呢

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

  • gongwei628
    两岁半 2016-07-18 07:01
    已采纳
      将form的KeyPreview 设置为true
    

    procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
    begin
    if Memo1.Focused then
    begin
    if (Key = #13) then
    begin
    Memo1.Clear;
    Key := #0;
    Abort;
    end;
    end;
    end;

    
    
    点赞 评论

相关推荐