| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TListBox + прокрутка [D7]

ИванН ©   (2008-11-16 13:25:00) 

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

---

Leonid Troyanovsky   (2008-11-16 14:05:00) [1]

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

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

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

--
Regards, LVT.

---

Leonid Troyanovsky   (2008-11-16 13:59:00) [2]

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

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

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

--
Regards, LVT.

---

{RASkov}   (2008-11-16 13:52:00) [3]

> [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;

---

Наверх