胡 胡鸣 Unregistered / Unconfirmed GUEST, unregistred user! 2009-09-02 #1 在richedit中显示的内容很多时，我不想用滚动条，能否使用“下一页”来显示后面的内容？
M manjel Unregistered / Unconfirmed GUEST, unregistred user! 2009-09-04 #4 好像是用的消息吧.有翻页的这个消息的.你查一下帮助吧.
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-09-04 #5 procedure Tform1.Button2Click(Sender: TObject);var i,j:integer;begin i := 65537; //赋初值 j:=1; while i > 65536 do begin i:= RichEdit1.Perform(EM_SCROLL, SB_PAGEDOWN ,0); if i=65536 then break; j:=j+1; end;end;
procedure Tform1.Button2Click(Sender: TObject);var i,j:integer;begin i := 65537; //赋初值 j:=1; while i > 65536 do begin i:= RichEdit1.Perform(EM_SCROLL, SB_PAGEDOWN ,0); if i=65536 then break; j:=j+1; end;end;
胡 胡鸣 Unregistered / Unconfirmed GUEST, unregistred user! 2009-09-07 #6 de410,你的方法我试了一下,只能起到滚动条的作用,我要的是点下一页后,整个Richedit显示的是新内容.
H herui Unregistered / Unconfirmed GUEST, unregistred user! 2009-09-09 #8 SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);//向前SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEUP,0);//向后
SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);//向前SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEUP,0);//向后
