Скроллинг

[Sanek777]

Как программно сделать скролинг Memo как в AVP7(там где создатели антивируса) идет плавный скролинг по кругу. Как сделать это?

[artemavd]

У Мемо есть свойство TScrollStyle = (ssNone(нет полос),ssHorizontal(горизонтальная) ,ssVertical(вертикальная),ssBoth(ес ть обе полосы)). Есть еще свойство ScrollBars.

[artemavd]

Или вот еще код прокрутки Memo:

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