Урезанный комбобокс

[leklerk]

Добрый день! Подскажите пожалуйста, можно ли сделать комбобокс, который, пока по нему не щелкнули, внешне представляет собой только маленькую стрелочку (не знаю, как точнее назвать) без поля для ввода, но когда по нему щелкаешь значения показываются целиком. При этом чтобы сам комбобокс оставался "стрелочкой".

[Sciv]

Вариант поиграть со свойством ComboBox.Width не рассматривали? При инициализации комбика ширина = ширине кнопки со стрелкой, по событию OnClick или какому другому ширина:=<Какое-то число>, в конце события OnChange вернуть ширину к первоначальному значению (если надо после выбора элемента снова показать одну стрелку).

[FaTaL]

Да лучше тогда поставить обычную кнопку и к ней прикрутить PopupMenu

[leklerk]

Sciv, все бы хорошо, но только он сам при этом раскрывается (там, где стрелочка), не только в выпадающем списке. Мне же нужно, чтобы только выпадающий список появлялся, а сам комбобокс оставался "стрелочкой". Мне подсказали:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Width := 21;
end;
 
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
  ComboBox1.Perform(CB_SETDROPPEDWIDTH, 145, 0);
end;

[Sciv]

Тогда Вас вариант FaTaL устроил бы