如何让memo滚动条一直沉在下面(100分)

小

小客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #1

memo1.text:=memo1.text+'一串获得的字符';
在经常执行这个语句以后滚动条一直在顶上，如何让他象memo1.lines.add()这个动作一
样能一直在下面。
我用memo1.perform(WM_SCROLL,SB_BOTTOM,0)做的话，滚动条上上下下的屏幕太闪。
能不能有根本解决的办法？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #2

if RichEdit1.SelStart=Length(RichEdit1.Text) then
begin
richedit1.SelStart:=length(Richedit1.Text);
richedit1.Perform(EM_SCROLLCARET,0,0);
end;

RichEdit改成memo

 

小

小客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #3

先谢谢这位兄弟，但是memo本身滚动条是向上的趋势，我刚才一试，发现还是
和先前一样上下闪，麻烦大家

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #4

memo1.Lines.Insert(0,str);

 

小

小客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #5

...
还是不行，得到的字符串不规整，只能用memo.text:=memo.text+str或者是memo.lines.text
来处理怎么办。

 

C

chji

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #6

最投机取巧的办法
Memo1.SelStart:=length(memo1.Text);
Memo1.SelText:='一串获得的字符';

 

小

小客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #7

有意思，解决了,thank大家
放分