Скачать: CL | DM;

Как связать 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.024 c