Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.11;
Скачать: CL | DM;

Вниз

Как синхронно скролировать два Memo or ListBox a   Найти похожие ветки 

 
Mitrofan   (2002-01-25 11:39) [0]

Имеется к примеру два Memo или ListBox"a с одинаковым количеством строк в каждом. Как сделать чтобы при скролировании одного второй автоматически скролировался на такое же положение скрола ?

Андрей.


 
Mitrofan   (2002-01-25 19:23) [1]

Неужели никто не подскажет ? :(


 
MBo ©   (2002-01-26 07:56) [2]

Получалось отслеживать скроллинг мышью, перекрыв wndproc. Но не работало(да и не надо было) при прокрутке клавишами up/down.
это примерно так
TForm1 = class(TForm)
private
OldLBProc:TWndMethod;
procedure NewLBProc(var msg: TMessage);

procedure TForm1.FormCreate(Sender: TObject);
begin
OldLBProc := ListBox1.WindowProc;
ListBox1.WindowProc := NewLBProc;
end;

procedure TForm1.NewLBProc(var msg: TMessage);
begin
OldLBProc( msg );
if msg.msg=WM_VSCROLL then
listbox2.perform(wm_vscroll,msg.wparam,msg.lparam);
end;




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

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

Наверх




Память: 0.46 MB
Время: 0.009 c
1-32206
kuban
2002-01-26 09:34
2002.02.11
VCL


3-32174
ZeroA
2002-01-16 09:31
2002.02.11
Индексы для БД FoxPro


4-32381
_SnAke_
2001-12-08 16:00
2002.02.11
SystemTray


14-32315
panov
2001-11-27 18:54
2002.02.11
AtGuard - есть такой под Win2000?


3-32136
SZap
2002-01-10 21:50
2002.02.11
Фильтр и сортировка по дате