Текущий архив: 2008.12.28;
Скачать: 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 вся ветка
Текущий архив: 2008.12.28;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.005 c
