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

Вниз

Синхронизация ScrollBar`ов у двух TCheckListBox   Найти похожие ветки 

 
Serega__2   (2001-11-23 15:37) [0]

На форме есть 2 TCheckListBox компонента. Задача заключается в том, чтоб при скроллинге первого скроллился второй(на ту же величину) и наоборот. Подскажите плз как оно делается. Заранее спасибо


 
Mbo ©   (2001-11-23 16:00) [1]

private
OldProc: TWndMethod;
procedure NewProc(var msg: TMessage);
end;
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
OldProc := CheckListBox1.WindowProc;
CheckListBox1.WindowProc := NewProc;
end;

procedure TForm1.NewProc(var msg: TMessage);
begin
OldProc( msg );
if msg.Msg=WM_VSCROLL then begin
sendmessage(checklistbox2.handle,WM_VSCROLL,msg.wParam,msg.lParam);
end;
end;


 
Serega__2   (2001-11-23 16:45) [2]

Спасибо!



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

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

Наверх




Память: 0.46 MB
Время: 0.008 c
7-75703
Dratvik
2001-10-09 18:35
2002.01.24
Можно ли как-то сделать файл на диске невидимым для Explorer и других


4-75718
Serega__2
2001-11-23 15:37
2002.01.24
Синхронизация ScrollBar`ов у двух TCheckListBox


1-75571
Light Elf
2002-01-04 20:28
2002.01.24
Добавление элемента в PopUP-меню в run-time.


3-75471
vinni2000
2001-12-19 15:06
2002.01.24
Нужен совет типа RxRichEdit


3-75483
Марина
2001-12-20 13:02
2002.01.24
База данных