Скачать: CL | DM;

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.

---

← →
Leonid Troyanovsky ©   (2008-11-16 14:05) [3]

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

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

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

--
Regards, LVT.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c