高分求解(Richedit的小问题)

[gjq2000]

请手出手:
richedit1.ScrollBars 为 ssBoth,

Richedit1的内容较多后，怎样自动把新加的内容显示在面前(即:垂直滑块往下动).
本人在加了一条内容后，用了
richedit1.SelStart := Length(richedit1.Text);
richedit1.SetFocus;
也没有能把垂直滑块往下动.

[meijg]

不需要那么复杂，只改一个属性就可以了
有一个属性：HideSelection,默认是True,改为False
就可以了
祝你好运

[U皮特U]

CRicheditCtrl的成员函数void LineScroll( int nLines, int nChars = 0 );可以垂直或水平滚动内容。
VC中的代码应该是：
LineScroll(GetLineCount());
转换成Delphi中的相应代码试试。

[meijg]

不需要那么复杂，只改一个属性就可以了
有一个属性：HideSelection,默认是True,改为False
就可以了
祝你好运

[U皮特U]

CRichEditCtrl的成员函数void LineScroll( int nLines, int nChars = 0 );可以垂直或水平滚动内容。
VC中的代码：
LineScroll(GetLineCount());
转换成Dephi下相应的代码试试。

[meijg]

不需要那么复杂，只改一个属性就可以了
有一个属性：HideSelection,默认是True,改为False
就可以了
祝你好运

[meijg]

不好意思，服务器出问题，发了这么多

[gjq2000]

Thank meijq!
分数送上!

[meijg]

怎没消息了，解决了没有，不会有问题吧，最近csdn 太不稳定了

[gjq2000]

to meijq: Thank meijq, 问题已解决。
(今天上csdn才知道分数未送出去,Sorry!)

[flyby]

meijg说的不对，
应该是hideScrollbars设为false;
我的Richedit中， hideSelection是true
滚动条一样能行

[flyby]

我理解错了，很抱歉