Советы по Delphi


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


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

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



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