Hi, Laca, Here is a tip from www.greatis.com ////////////////////////////////////// Use SendMessage function and WM_VSCROLL message with SB_PAGEDOWN or SB_PAGEUP parameters.
procedure TForm1.Button2Click(Sender: TObject); begin SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0); end; OR Use SenMesage function with EM_LINESCROLL message: procedure TForm1.Button2Click(Sender: TObject); begin SendMessage(Memo1.Handle,EM_LINESCROLL,0,-1); end; ///////////////////////////////////// Best Regards Bahry Delphi-Talk Discussion List wrote: > Hi, delphians, > please help, I'm stuck... > I have to scroll a long richtext from code (about 500 lines). > The richedit must be fullscreen, and scrolling should be smooth. > A speaker is reading that, so scrolling has to be automatic. > (Scrolling speed should be adjustable...) > > Scrollby method just does not seem to do what I want. > > Can you help me? A point to start? > > Thanks a lot in advance. > > By(t)e > > Laca > www.kovacslt.fw.hu <http://www.kovacslt.fw.hu> > mailto:[EMAIL PROTECTED] > __________________________________________________ > Delphi-Talk mailing list -> [email protected] > <mailto:[email protected]> > http://www.elists.org/mailman/listinfo/delphi-talk > . __________________________________________________ Delphi-Talk mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi-talk
