Cambiar el ancho del desplegable

2500 vistas


Muy útil si queremos que un ComboBox tenga un ancho mientras está sin desplegar, y otro diferente al desplegarse.

Basta enviarle el mensaje CB_SetDroppedWidth



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   Anchura: integer;
  4. begin
  5.   Anchura := 200;
  6.   ComboBox1.Perform(CB_SetDroppedWidth, Anchura, 0);
  7. end;