Ver Mensaje Individual
  #5  
Antiguo 17-10-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Reputación: 22
Bicho Va por buen camino
Bueno, he estado entretenido y se me han adelantado, pero he podido hacer un ejemplo que contrasta el truco con lo que comenta Lepe.

Código Delphi [-]
var
  Ancho, x, aux: integer;
begin
  Ancho := 0;
  aux   := 0;
  for x := 0 to ComboBox1.Items.Count - 1 do begin
    aux := Combobox1.Canvas.TextWidth(Combobox1.Items.Strings[x]);
    if aux > Ancho then Ancho := aux;
  end;

  ComboBox1.Perform(CB_SetDroppedWidth,Ancho,0);

Espero te sirva,

Saludos
Responder Con Cita