Увидеть весь тект в выподающем меню

← →
Vitalnet (2004-04-22 20:32) [0]

Уважаемые мастера!
Подскажите пожалуйста каr сделать что в Combox был виден весь тект потому что не умещается в ширине формы.
Спасибо.

← →
Yanis © (2004-04-22 21:54) [1]

Я так понял у тебя максимальная длина строки Item"а больше чем сам ComboBox!?
В инете чё то я не нашел как это делается, но F1 всегда спасёт.
Используй этот код.
procedure TForm1.ComboBox1DropDown(Sender: TObject); var i,max:Integer; begin max := ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[0]); for i := 0 to ComboBox1.Items.Count-1 do If ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[i]) > max then max := ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[i]); ComboBox1.Perform(CB_SETDROPPEDWIDTH,max,0); end;

← →
Игорь Шевченко © (2004-04-23 11:21) [2]

http://www.delphikingdom.com/treasury/combo.htm

?

← →
Vitaliygavrilov (2004-04-27 10:51) [3]

Из приведенного выше ссылки не работает в случае если программно производиться изменение items combobox

Увидеть весь тект в выподающем меню Найти похожие ветки