Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.12.28;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
15-1224882032
Копир
2008-10-25 01:00
2008.12.28
Программа, которую никто так и не создал


15-1225078325
Slider007
2008-10-27 06:32
2008.12.28
С днем рождения ! 26 октября 2008 воскресенье


15-1224866998
DVM
2008-10-24 20:49
2008.12.28
Подскажите чайнику в Java


6-1181188456
Klopan
2007-06-07 07:54
2008.12.28
Создать сетевое подключение


2-1226579779
Andrey_ka
2008-11-13 15:36
2008.12.28
как определить высоту mainmenu?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский