Советы по Delphi

       

?? Прокрутка Memo ??


И вот что я вам отвечу:

Var
ScrollMessage:TWMVScroll;
ScrollMessage.Msg:=WM_VScroll;for i := Memo1.Lines.Count DownTo 0 dobeginScrollMessage.ScrollCode:=sb_LineUp;ScrollMessage.Pos:=0;Memo1.Dispatch(ScrollMessage);end;
[000171]



Содержание раздела