Увеличить число строк списка в ComboBox

[VKS]

дано:
ComboBox (style: DropDown List) содержащий 10-20 записей

вопрос:
как можно задать отличное от 8 число строк списка? хотелось бы задать больше.

реально?

[pronto]

Конечно, реально!
Смотри на функцию MoveWindow. Особенно на её параметр nHeight...

[VKS]

Код: Выделить всё

Sub SetComboHeight(YourCombo As ComboBox, lDropDownHeight As Long)
    Dim oldscalemode As Integer
    If TypeOf YourCombo.Parent Is Frame Then Exit Sub
    oldscalemode = YourCombo.Parent.ScaleMode
    YourCombo.Parent.ScaleMode = vbPixels
    MoveWindow YourCombo.hwnd, YourCombo.Left, YourCombo.Top, YourCombo.Width, lDropDownHeight, 1
    YourCombo.Parent.ScaleMode = oldscalemode
End Sub


нашел этот "щебень" в инете - не помогло

пока перешел на FM20.dll - но так не хочется ее с собой таскать.......

[pronto]

Почему? MoveWindow объявлена?

[VKS]

Почему? MoveWindow объявлена?

ну конечно объявлена.. иначе как?
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
вот как то так... а почему? скорее всего контрол не поддерживает (вообще не поддерживает) изменение кол-ва (а не их высоты!) строк в выпадающем списке.. имхо

[pronto]

Хорошо, попробуй оставить вместо функции SetComboHeight строку:

Код: Выделить всё

MoveWindow YourCombo.hwnd, YourCombo.Left, YourCombo.Top, YourCombo.Width, lDropDownHeight, 1

где YourCombo — имя твоего Combo,
lDropDownHeight — высота выпадающей области, для начала выставь на 250.

[Twister]

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
const
  ITEMS_IN_COMBO = 20;
var
  i: integer;
begin

  for i := 1 to ITEMS_IN_COMBO do
    cbo.Items.Add( 'Item ' + IntToStr(i) );

  SendMessage( cbo.Handle, CB_SETMINVISIBLE, WPARAM(ITEMS_IN_COMBO), 0 );

end;