?? Прокрутка 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; |
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; |