Tamaño columnas en TDBLookupComboBox

[ecfisa]

Hola Luis.

Una opción es que crees en tu componente dataset un campo persistente (calculado de tipo string) con una longitud igual a la suma de campo CODIGO + espacio + divisor + espacio + longitud del campo FAMILIA.

Ese campo calculado (llamémosle CALCULADO ) será quién aparezca en la propiedad ListField del TDBLookupComboBox.

Por último agregas un poco de código al evento OnCalcFields del DataSet:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if Assigned(tuDataModule) then
    tuDataModule.tuDataSet.OnCalcFields := tuDataSetCalcFields;
  // else (El DataModule debería estar creado...)
end;

procedure TForm1.tuDataSetCalcFields(DataSet: TDataSet);
begin
  tuDataModule.tuDataSetCalculado.AsString := Format('%s - %s',
    [tuDataModule.tuDataSetCODIGO.AsString,
     Trim(tuDataModule.tuDataSetFAMILIA.AsString)]);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  tuDataModule.tuDataSet.OnCalcFields := nil;
end;

Saludos