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.