Delphi Memo 控件 回车事件

Question

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

问题：
第一个Memo清空后会出现一行空行如图所示

需要如何才能做到像qq一样点击回车的时候只进行赋值而不添加回车呢

Answer 1

  将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;