ComboBox (Delphi)

[VadEr]

Добрый день!

Подскажите пожалуйста, как увеличить размер выпадающего списка в ComboBox, что бы полностью видеть строку, которая не помещается?

[Stilet]

Ну увеличь свойство Width самого комбика.

[Костя КС]

dropDownCount если я правильно понял

[VadEr]

Сообщение от Stilet

Ну увеличь свойство Width самого комбика.

не увеличивая компонент, только выпадающий список

Сообщение от Костя КС

dropDownCount если я правильно понял

к сожалению это свойство показывает кол-во колонок в выпадающем списке, а нужно увеличить ширину вып.списка без изменения ширины комбика

[Костя КС]

Теперь понял.

Вот такая штука есть,
вроде работает:

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var i,L,mwidth:integer;
begin
mwidth:=0;
   with ComboBox1 do
   begin
     for i := 0 to Items.Count - 1 do
     if ( Form1.Canvas.TextWidth(Items[I]) > mWidth) then
       mWidth :=Form1.Canvas.TextWidth(Items[I])+ 100;
   SendMessage(ComboBox1.Handle ,$0160,mWidth,0);
   end;
end;

[VadEr]

Спасибо, заработало!

Но не совсем понятно, что эта ф-ция делает:
SendMessage(ComboBox1.Handle ,$0160,mWidth,0); и что такое $0160?

[Костя КС]

SendMessage - API функция,отправление системного сообщения windows.
сначала Handle объекта, затем параметр (код $0160 тоже самое, что CB_SETDROPPEDWIDTH) и значение (mWidth - длина самой большой строки + 100)

Я не очень хорошо знаком с этим, надеюсь ничего не напутал.
При желании можно много найти по этой теме.

[VadEr]

OK, разобрался
там можно просто 352 написать в десятеричной системе)))

[sam_as]

То что надо-спасибо , и мне помогло !!!