Ver Mensaje Individual
  #12  
Antiguo 17-08-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
Puedes usar como ejemplo el código de la VCL, pon un combobox y escribe en el editor: combobox1.items ahora haz CTRL + CLIC en la la palabra items, verás algo similar a esto:
Código Delphi [-]
type

TOpcion = (oUna, oDos, oTres);
TOpciones = set of TOpcion;

TMicomponente = class(TComponent) <<< necesario para que la lista se guarde en el dfm

private
  FItems:TStrings;
public
  constructor create(AOwner:TComponent);override;
  destructor destroy;override;
published
  property Items:TStrings read FItems write Fitems;
  property Opcion:TOpcion read Fopcion write Fopcion;
  property Opciones:TOpciones read Fopciones write Fopciones default [oUna];
end;

implementation

constructor TMiComponente.create(AOwner:TComponent);override;
begin
 inherited;
 FOpciones := [oUna];
 FItems := TStringlist.create; // hereda de TStrings así que sin problemas.
end;

destructor TMiComponente.destroy;
begin
  FItems.Free;
end;

Resumiendo:
- La propiedad se declara de tipo TStrings para que sea compatible con combobox.items , memo.lines, RichEdit.lines, etc.
- Se crea en el constructor como TStringList y dado que éste último hereda de TStrings, ya tienes compatibilidad asegurada.
- por último se libera en el destructor del componente.

Tu propiedad Items se comportará en el inspector de objetos como la propiedad Items de un TMemo. No saldrá una lista desplegable cuando el programador use tu componente.

La propiedad Opcion (al estar declarada como un tipo enumerado)será una lista desplegable en el inspector de objetos pero solo puede elegirse uno de los valores de TOpcion.

La propiedad Opciones (al estar declarada como un tipo "Set") será como el Options de un grid, que tiene un simbolo "+" que el programador puede expandir en el inspector de objetos y cada una de ellas es de tipo Boolean.

Si quieres hacer algo parecido al TColumn de un grid debes heredar de TCollection y TCollectionItem que son más potentes.

Lo que tu quieres, es si cabe lo más complicado, ya que el usuario puede escribir en esa propiedad del inspector de objetos lo que le dé la gana, y tendrás que lanzar excepciones si comete un error de tecleado. Echa una visual a los editores de propiedades en la carpeta delphi\source\..\property Editors\ no recuerdo exactamente en qué subcarpeta está. También busca en el foro, hay algo dicho.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita