关于memo组件鼠标定位的问题

Question

在memo组件下按回车 把消息送走以后  光标就自动到了memo的第2行了 用了
memo1.setfocus;没有用 就是定位在第2行 请问下怎么样才能将光标定位到第一行呢 谢谢

Answer 1

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
  begin
    ShowMessage('输入回车！');
    Key := #0;
  end;
end;

Answer 2

其实就是不要让enter键来让memo来换行 也就是说memo组件不要支持enter换行就可以

Answer 3

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
    Key := #0;
end;