Форум: "WinAPI";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизСинхронизация ScrollBar`ов у двух 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;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c