Cria��o de Componentes

Question

:D Estou criando um componente, nele preciso colocar uma propriedade que � um objeto, nesta propriedade deveria aparecer uma crizinha como temos na propriedade Color=TColor, bem na minha propriedade a...

Dopi · Answer

Vc tem que usar o metodo SetSubComponent(true) desse Subcomponente

Veja no Exemplo abaixo, onde o Componente ACBrCHQ cria uma instancia do SubComponente ACBrDevice

constructor TACBrCHQ.Create(AOwner: TComponent);
begin
  inherited create( AOwner );

  fsAtivo  := false ;
  fsModelo := chqNenhuma ;

  { Instanciando SubComponente TACBrDevice }
  fsDevice := TACBrDevice.Create( self ) ;  { O dono � o proprio componente }
  fsDevice.Name := �ACBrDevice� ;    { Apenas para aparecer no Object Inspector}
  fsDevice.SetSubComponent( true );{ para gravar no DFM/XFM }
  fsDevice.Porta := �COM1�;
  fsDevice.Serial.DeadlockTimeout := 1000 ;

Mitsalito · Answer

Cara desculpe minha falta de conhecimento, mas n�o entendi.
vamos supor
tenho o componente X: TX
neste componete tenho a propriedade Y: TY
onde
type
TY = Class
A1: String;
A2: TEdit;
A3: TAlgumacoisa
end;
Este tipo est� declarado em uma outra unit e eu gostaria que ele fosse mostrado no componente x com a cruzinha na frente para se fazer o preenchimento;

Dopi · Answer

Vc tb precisa fazer um override do Constructor do Componente (TX)

{ Componente X }
TX = class( TComponent )
  private
     fsY :  TY ;

  public
    constructor Create(AOwner: TComponent); override;

  published
      { Instancia do Componente Y }
     property Y : TY read fsY ;

end;

No Implamentation

constructor TX.Create(AOwner: TComponent);
begin
  inherited create( AOwner );

  { Instanciando SubComponente TY }
  fsY := TY.Create( self ) ;  { O dono � o proprio componente }
  fsY.Name := �ComponenteY� ;  
  fsY.SetSubComponent( true );   { para gravar as propriedades do Subcomponente no DFM/XFM } 
end ;

Mitsalito · Answer

:oops: Cara tenha um pouco mais de paciencia comigo .... fis o que vc falou mas n�o funcionou .... no lugar do objeto que foi criado ao inv�z da cruzinha ficou uma combobox.
dai coloquei um showmessagem no metodo contructor que est�declarado direitinho no public e vi que n�o est� sendo feito nada l� dentro.

t� brabo cara

Mitsalito · Answer

:oops:  desculpa cara eu esqueci de colocar override na frente da procedure...

Mitsalito · Answer

Desculpa de novo e muito obrigado pela ajuda est� pronto j�...

Dopi · Answer

Esqueci de mencionar...

O seu subcomponente deve ser descendente de TComponent... caso contr�rio ele n�o ser� persistente, e n�o gravar� as propriedades...

type TY = Class A1: String; A2: TEdit; A3: TAlgumacoisa end;

Nesse caso modifique:
TY = Class
para
TY = Class( TComponent )

F�rum Cria��o de Componentes #261104