Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ComboBox + ListBox

Автор: Herp 13.1.2006, 17:56

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

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

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

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

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

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

Автор: Susel 13.1.2006, 18:17

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

Автор: Samhein 13.1.2006, 18:24

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

Автор: Albinos_x 13.1.2006, 18:30

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

Код


procedure TForm1.ComboBox1DropDown(Sender: TObject);

Автор: Herp 13.1.2006, 18:31

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

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

Автор: Alexeis 13.1.2006, 18:40

Код


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;

Автор: Susel 13.1.2006, 18:44

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

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