初级问题：RichEdit控件的ScrollBy方法自动滚动
我使用RichEdit控件的ScrollBy方法自动滚动，为什么RichEdit滚动的内容只有一页，后边的内容不出现，刷新控件也不行，怎样才能使后边的内容也滚动出来呢？请指点。 问题点数：10、回复次数：5Top
1 楼augur（augur）回复于 2002-06-12 11:52:24 得分 0
up
Top
2 楼GZCPFR（请多指教！）回复于 2002-06-12 12:03:40 得分 5
给个例子，例如实现RichEdit右键滚屏
bool RightButtonFlag=false;
//------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button==mbRight) RightButtonFlag=true;
}
//------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(RightButtonFlag) SendMessage(RichEdit1->Handle, EM_SCROLL, SB_LINEDOWN, 0);//下移
//if(RightButtonFlag) SendMessage(RichEdit1->Handle, EM_SCROLL, SB_LINEUP, 0);//上移
}
//------------------------------------------------------------------
Top
3 楼GZCPFR（请多指教！）回复于 2002-06-12 12:04:24 得分 0
给个例子，例如实现RichEdit右键滚屏
bool RightButtonFlag=false;
//------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button==mbRight) RightButtonFlag=true;
}
//------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(RightButtonFlag) SendMessage(RichEdit1->Handle, EM_SCROLL, SB_LINEDOWN, 0);//下移
//if(RightButtonFlag) SendMessage(RichEdit1->Handle, EM_SCROLL, SB_LINEUP, 0);//上移
}
//------------------------------------------------------------------
Top
4 楼NowCan（城市浪人）回复于 2002-06-12 12:08:50 得分 5
http://vip.6to23.com/NowCan1/tech/autoscroll.htm
http://nowcan.yeah.netTop
5 楼NowCan（城市浪人）回复于 2002-06-12 12:09:33 得分 0
http://vip.6to23.com/NowCan1/tech/autoscroll.htm
http://nowcan.yeah.netTop
6 楼smopuim（盗版九阴真经）回复于 2002-06-12 22:40:20 得分 0
这么久了，以为没人理我了，今天偶然看到，真高兴。也有了提问题的信心了。谢谢各位!马上加分。Top
7 楼smopuim（盗版九阴真经）回复于 2002-06-12 22:47:02 得分 0
我加分了，如何能看到加分的情况呢？Top
