Как связать TScrollBar и TMemo ??? [D7, WinXP]
Фёдор Мегатронов © (2005-07-07 15:39:00)
Мне необходимо прокручивать Мемо не его родным скроллбаром, а
отдельным, расположенным на форме. У Мемо я не нашел свойств
отвечающих за положение скроллбара. Может быть кто-нибудь знает как
проще всего связать скроллбар с мемо ?
nes (2005-07-07 17:24:00) [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;
Наверх 
ЧАТ |
Орешник |
|
