Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: 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 вся ветка

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.034 c
1-1120415849
Trubis
2005-07-03 22:37
2005.07.25
устанавливаю длину динамического массива и вылетаю :(


1-1120460209
maktub
2005-07-04 10:56
2005.07.25
Преобразование форматов форм


1-1120942375
Green_Templar
2005-07-10 00:52
2005.07.25
speedbutton


4-1113913379
Max_005
2005-04-19 16:22
2005.07.25
Как программно закрыть PopupMenu и отлавливать указатель мыши


11-1103871819
Сниф
2004-12-24 10:03
2005.07.25
Помогите познать KOL! Проблемы с началом работы.