Здраствуйте, жители форума!

Незнаю как начать...В общем имеются компоненты ComboBox1 и ListBox1.

А вопрос такой, как увязать эти 2 компоненты следующим образом:
Нажимая на ComboBox1 кнопку, которая вызывает спадающий список, должен спадать ListBox1 вместо ее родного и вообще такое возможно реализовать.

Чесно говоря, я так и не въехал за счет чего нажимая кнопку на ComboBox'e вываливается список, точнее я не понял, что создает этот список, какая процедура???!!! Я модуль перешарил для данного класса (TCombobоx)- ничего, даже класс-родитель TCustomComboBox - ничего непонятно.

Поясните или помогите советом!
в общем всем откликнувшимся Big Thanks!

Herp.
Добавлено @ 17:57
P.S. Программирую на Delphi 5.

Нужно переопределить метод AdjustDropDown и в нем показывать ListBox в нужной позиции.....

Her, ээээээ, ну ты можешь пояснить как это(точнее), и нафиг это надо..

? а чем выпадающий список не устраивает?
а за само событие отвечает:

Код

procedure TForm1.ComboBox1DropDown(Sender: TObject);

2 Susel,
Я такого метода не нашел среди доступным, если можно по конкретнее...чего, куда...

2 Samhein,
Это надо лиш для общего дизайна всего приложения, если известно, может кто и занимался "облагораживанием" своего приложения, использовав компоненты сторонних разработчиков, а частности компонент класса TComboBox, то отрисовка происходила лишь кнопки у ComboBox'a, а вот Scroll у спадающего списка не отрисовывался, вот я и пытаюсь привентить ListBox k ComboBox'y.

Код

procedure TForm1.FormCreate(Sender: TObject); begin   ListBox1.Items.Assign(ComboBox1.Items); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin   ListBox1.ItemIndex := ComboBox1.ItemIndex; end; procedure TForm1.ListBox1Click(Sender: TObject); begin  ComboBox1.ItemIndex := ListBox1.ItemIndex; end; procedure TForm1.Button1Click(Sender: TObject); begin   if SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE, 0, 0) <> 1   then     SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0); end;

Метод AdjustDropDown - защищённый виртуальный метод класса TCustomCombo (один из предков TComboBox). Переопредели этот метод не вызывая inherited и получишь то что хотел. В этом методе производится отрисовка окна ComboBoxa......

Правда придётся продумать как прятать ListBox по выбору какого либо элемента, но это уже нужно делать специальный лист бокс, который бы или Visible в false устанавливал при двойном щелчке мыши, или, что правильнее, уничтажался при двойном щелчке, сохранив предварительно всю информацию о выбранном элементе...

Это сообщение отредактировал(а) Susel - 13.1.2006, 19:09