Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c