Gracias, pero vuelvo con otra cuestión que no le acabo de encontrar la solución.
Actualmente tengo algo similar a...
Código Delphi
[-]... TPathProperty = class(TPropertyEditor) public procedure Edit; override; function GetAttributes: TPropertyAttributes; override; end; TAlgo = class (TEdit) private FFileName:string; published property FileName:string read FFileName write FFileName; end; ... implementation procedure Register; begin RegisterPropertyEditor(TypeInfo(String),TAlgo,'FileName', TPathProperty); end; ... function TPathProperty.GetAttributes: TPropertyAttributes; begin Result := [paDialog]; end; procedure TPathProperty.Edit; var OPD: TOpenDialog; begin OPD := TOpenDialog.Create(Self.Designer.GetComponent(Self.GetName)); try OPD.InitialDir := ExtractFilePath(GetStrValue); if OPD.Execute then begin SetStrValue(OPD.FileName); // NOTA 1 end; finally OPD.Free; end; Designer.Modified; // NOTA 2 end; ...
Según quiero entender en este ejemplo, con la linea "NOTA 1" se establece el valor de la propiedad y con "NOTA 2" se realizan las modificaciones necesarias. Por lo que he podido ver, "NOTA 2" puede "sobrar" pues se llama de forma automática desde "NOTA 1".
El caso actualmente es que si bien, logro abrir el cuadro de diálogo y cuando leo la propiedad "FileName" tiene almacenado el valor del archivo seleccionado desde el cuadro de diálogo, el valor mostrado desde el "Object Inspector" para dicha propiedad aparece como "(Unknown)" cosa que visualmente queda poco atractiva a pesar de que, como he dicho, es funcional.
¿Se os ocurre alguna idea para que en vez de "(Unknown)" muestre el valor recuperado desde el cuadro de diálogo?
Por otro lado, tengo unos ComboBoxes con muy poco Width pero conteniendo unos Items que no entran en el Width del ComboBox.
¿Hay alguna forma para que al desplegar el ComboBox, el ancho de lo desplegado se ajuste al item del de mayor tamaño?
Nota: Obtener el ancho en pixels de un item no es problema.