Ver Mensaje Individual
  #4  
Antiguo 19-03-2010
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
Hola,
no he mirado al detalle tu codigo, pero te comento un par de cosas:

para hacer una propiedad desplegable, debe ser de una clase derivada de TPersistent

Código Delphi [-]
 
type TDesplegable = class(TPersistent)
    A : integer;
    B : string;
end;
 
type TMiComponente = class(TComponent)
   Desp : TDesplegable;
   public
   constructor Create(AOwner: TComponent); overload; 
   destructor Destroy; overload;
   published
    property Desplegable : TDesplegable read Desp write Desp;
end;
 
constructor TMiComponente.Create(AOwner : TComponent);
begin
    inherited;
    Desplegable := TDesplegable.Create;
end;
 
destructor TMicomponente.Destroy;
begin
    Desplegable.Free;
    inherited;
end;

Algo asi, lo hago de cabeza.
Para usar componentes visuales, deberias heredarlos de TComponent o TPersistent. No se si TJFApplication es la clase padre correcta...
Para usar tu propio bitmap, debes crear un bitmap en el archivo .res relacionado con exactamente el nombre de la clase : TMICOMPONENTE (creo que en la llave MAIN) Despues de un par de vez de recompilar y reinstalar, te aparecera el icono. Si no es asi, borra todos los .dcu y el .dpk relacionado, y vuelve a construirlo.
Algo asi, ya te digo que lo hago de cabeza. Lo mejor siempre es cojer un ejemplo sencillo y ir mirando paso a paso como se hace. Un saludo y a ver si te sirve.
Responder Con Cita