請問memo中爲何SendMessage(Memo1->Handle,WM_VSCROLL,SB_PAGEDOWN,0); 可以用，而SendMessage(Memo1->Handle,WM_VSCROLL,SB_BOTTOM,0);就沒有反 映？

joon您好： 小弟试了这两句都能运作良好，不知您那么状况是怎么回事？

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Memo1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMessage(Memo1.Handle,WM_VSCROLL,SB_PAGEUP,0);
end;    

在memo中放多的东西，这样效果会比较明显点 虽说是用delphi写的，在BCB中也应该一样的。您参考试试看 或参考： 站内很多相关的说明 > <> =============================== 为什么经过多年以后，得失的过程如此冷漠 ===============================

用BCB6 { String a="asdfghjkl"; Memo1->Lines->Text=Memo1->Lines->Text a; SendMessage(Memo1->Handle,WM_VSCROLL,SB_PAGEDOWN,0); } 儅memo滿后，會翻一頁。 可是 { String a="asdfghjkl"; Memo1->Lines->Text=Memo1->Lines->Text a; SendMessage(Memo1->Handle,WM_VSCROLL,SB_BOTTOM,0); } memo滿后，不會始終在下面，一點反映沒有。

joon您好： 小弟做了个测试，还真是如您所说，对于memo来说SB_TOP能正常执行，SB_BOTTOM没反应。而对于RichEdit来说，SB_TOP和SB_BOTTOM都能正常执行。原因小弟没能查出来< >，不过如需新增后保持在底部，可参考下列方法，小弟试过效果良好< >

 procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  Memo1.SelStart:=-1;
  str:='try try see';//这里是要写入的内容
  SendMessage(Memo1.Handle, EM_REPLACESEL, 1, LongInt(str));
end;

试试看吧也是> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

謝謝deity~~~~~~！