Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Синхронизация 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]

Спасибо!




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.034 c
6-75638           Di_wind               2001-11-03 14:56  2002.01.24  
пережача файлов по сети


3-75463           night                 2001-12-18 11:22  2002.01.24  
Как сделать плавную проктрутку в DBGrid???


6-75635           Dmitry V. Averuanov   2001-11-02 15:42  2002.01.24  
Мучительный вопрос:


1-75594           Stix                  2002-01-07 21:56  2002.01.24  
Русский HELP по Delphi 6


1-75570           Delphimun             2002-01-06 16:35  2002.01.24  
Как прикрепить файл к почте отсылаемой с помощью компоненты TNMSMTP