TListBox + прокрутка

← →
ИванН (2008-11-16 13:25) [0]

У меня есть два TListBox, которые равномерно заполнены, каким образом сделать так, что бы при прокрутке скроллом первого, второй так же прокручивался вместе с ним?

← →
{RASkov} © (2008-11-16 13:52) [1]

> [0] ИванН (16.11.08 13:25)

Ловить сообщение скрола на первом листбоксе и пересылать его второму....
Примерно так:
type TForm1 = class(TForm) ListBox1: TListBox; ListBox2: TListBox; procedure FormCreate(Sender: TObject); private OldWnd: TWndMethod; procedure NewWnd(var Mes: TMessage); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin OldWnd:=ListBox1.WindowProc; ListBox1.WindowProc:=NewWnd; end; procedure TForm1.NewWnd(var Mes: TMessage); begin OldWnd(Mes); if Mes.Msg=WM_VSCROLL then ListBox2.Perform(Mes.Msg, Mes.WParam, Mes.LParam); end;

← →
Leonid Troyanovsky © (2008-11-16 13:59) [2]

> ИванН (16.11.08 13:25)

> У меня есть два TListBox, которые равномерно заполнены,
> каким образом сделать так

А чего, равномерно заполнить TStringGrid не получилось?

--
Regards, LVT.

> ИванН (16.11.08 13:25)

> У меня есть два TListBox

Один лучше:
http://groups.google.com/group/fido7.ru.delphi/msg/d783b0682a302c14

--
Regards, LVT.

TListBox + прокрутка Найти похожие ветки