Modificar ancho en un combobox al desplegarse

[[Bicho]]

Simplemente poniendo esto podemos conseguir que un combobox tenga distinto ancho al desplegarse

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
    Ancho: integer;
 begin
   Ancho:=300;
   ComboBox1.Perform(CB_SetDroppedWidth,Ancho,0);
 end;

[papulo]

Excelente código, he tardado un suspiro en implementarlo en mis cBox y queda efectivo.

Gracias por la ayuda.

[LordVermiis]

Mira que no he buscado yo esto, y era así de facil. Muchas gracias por la ayuda.