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

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

Форум программистов > Delphi: Общие вопросы > Как увеличить список ComboBox'a в длинну

Автор: Bosh 26.10.2006, 07:52

Есть ComboBox в нем забиты значения по длинне превышающие размер ComboBox'а при разворачивании списка строки в списке также видны не полностью.
Подскажите как сделать чтобы при разворачивании строки были видны полностью.

Заранее спасибо!

Автор: Albinos_x 26.10.2006, 08:41

Код


procedure TForm1.ComboBox1DropDown(Sender: TObject);
var i,p,w:integer;
begin
w:=0;
for i:=0 to ComboBox1.Items.Count-1 do
   begin
   p:=ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[i]);
   if p>w then w:=p;
   end;
w:=w+5;
ComboBox1.Perform(CB_SETDROPPEDWIDTH, w, 0);
end;

Автор: Bosh 27.10.2006, 11:01

Спасибо.

Автор: Akella 27.10.2006, 11:09

можно использовать библиотеку EhLib