Fórum ComboBox DUVIDA CRUEL! #190642

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
  I, MaxWidth, OneWidth: Integer;
begin
  with (Sender as TCustomComboBox) do
  begin
    MaxWidth := Width;
    for I := 0 to Items.Count - 1 do
    begin
      OneWidth := Canvas.TextWidth(Items[I]);
      if OneWidth > MaxWidth then MaxWidth := OneWidth;
    end;
    SendMessage(Handle, CB_SETDROPPEDWIDTH, MaxWidth + 8, 0);
  end;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject); 
var 
  MaxWidth: Integer; // largura do maior item
  OneWidth: Integer; // largura do item corrente
  I: Integer;             // sei lah...
begin
  // pra simplificar o acesso, e garantir que estamos
  // trabalhando com um combo
  with (Sender as TCustomComboBox) do 
  begin
    // assume que a maior largura é a largura da combo 
    MaxWidth := Width; 
    // verifica cada item
    for I := 0 to Items.Count - 1 do 
    begin 
      // pega a largura deste
      OneWidth := Canvas.TextWidth(Items[I]); 
      // se é maior que a atual, muda...
      if OneWidth > MaxWidth then MaxWidth := OneWidth; 
    end; 
    // manda uma mensagem para alterar a largura da 
    // listbox(eh uma listbox que eh aberta), com uma folga de 8
    SendMessage(Handle, CB_SETDROPPEDWIDTH, MaxWidth + 8, 0); 
  end; 
end;