Как связать TScrollBar и TMemo ???

← →
Фёдор Мегатронов (2005-07-07 15:39) [0]

Мне необходимо прокручивать Мемо не его родным скроллбаром, а отдельным, расположенным на форме. У Мемо я не нашел свойств отвечающих за положение скроллбара. Может быть кто-нибудь знает как проще всего связать скроллбар с мемо ?

← →
nes © (2005-07-07 17:24) [1]

Хм, попробуй у скроллбара OnScroll:

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
Var
Scroll1Message:TWMVScroll;
begin
scrollbar1.Max:=memo1.lines.Count-1-round(memo1.Height / 17);
Scroll1Message.Msg:=WM_VScroll;
Scroll1Message.ScrollCode:=integer(ScrollCode);
Scroll1Message.Pos:=ScrollPos;
Memo1.Dispatch(Scroll1Message);

end;

Как связать TScrollBar и TMemo ??? Найти похожие ветки