Скролбары

[NeiL]

Вопрос в следующем: Как организовать синхронную прокрутку скролбаров в 2-х ListBox. (при прокрутке 1- го прокручивается 2-й или при прокрутке 2-го прокручивается 1-й)

[BOBAH13]

Пересоздайте собственный контрол и ловите сообщения соответствующие вашему скролу и выведите это в событие и уже событие обрабатывайте в вашем приложении

[Лёка]

Тема действительно интересная! Но для меня это вообще темный лес! я бы с удовольствем узнал подробнее

[mihali4]

Вот вариант прокрутки ListBox2 синхронно с ListBox1. Синхронизацию в обратном направлении предлагаю сделать самостоятельно (это полезно будет).
Итак:

...
  private
    { Private declarations }
    procedure ListBox1WindowProc(var Msg: TMessage);
...
implementation

{$R *.dfm}

var OldListBox1WindowProc: TWndMethod;

procedure TForm1.FormCreate(Sender: TObject);
begin
OldListBox1WindowProc:=ListBox1.WindowProc;
ListBox1.WindowProc:=ListBox1WindowProc;
end;

procedure TForm1.ListBox1WindowProc(var Msg: TMessage);
begin
if msg.Msg=WM_VSCROLL then
ListBox2.TopIndex:=ListBox1.TopIndex;
OldListBox1WindowProc(Msg);
end;