？？？如何让光标停在Memo的最后字符后？？？

Question

当 Memo内容不为空时，光标在Memo当前行的最后，如何使在按下回车时并出现一个ShowMessage('1111')提示后，Memo的光标不换行，始终停在最后一个字符后，我用 Edit1.SetFocus;
     Edit1.SelStart := length(Edit1.Text)-1; 方法，第一次还可以，可到第二次在光标后按回车提示后，光标就换行了，怎么让光标不换行，始终停在当前行的最后处。

Answer 1

Enter以后再把Enter回退掉（删除）

Answer 2

如何回退？用 Edit1.SelStart := length(Edit1.Text)-1; 不行

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  OldProc: Pointer;implementation{$R *.dfm}function MyProc(h: HWND; msg, wparam, lparam: LongInt): LongInt; stdcall
begin
  if (Msg = WM_KEYDOWN)  or (msg = WM_CHAR) then
  begin
    if (wparam = 13) then
    begin
      ShowMessage('KeyDown');
      Form1.Memo1.SetFocus;
      Form1.Memo1.SelStart := length(Form1.Memo1.Text)-1;
    end;
  end
  else
    Result := CallWindowProc(OldProc, h, msg,wparam,lparam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  OldProc := Pointer(SetWindowLong(Memo1.Handle,GWL_WNDPROC,Integer(@myproc)));
end;end.

Answer 4

你按下回车后，length不是开始的那个了
是原来的 + 回车
我那代码只是拦截了按下回车不往下边执行了

Answer 5

在keypress事件里面：
if  key = #13 then begin
 ...
 ...
 showmessage('111');
 Key := #0;   //这就是删除掉回车
end;