Cria��o de componentes com subcomponentes

Question

Ol� pessoal,� muito bom estar de volta ao f�rum.Espero poder compartilhar meus modestos conhecimentos com voc�s.Gostaria de esclarecer algumas d�vidas de como criar componentes com subcomponentes agre...

Dopi · Answer

Se vc usar Delphi 6 ou superior � s� criar o sub-componente no metodo Create do componente principal e usar [b:498abe9d6c]SetSubComponent[/b:498abe9d6c] para expor o sub-componente ao ObjectInspector e tamb�m gravar a propriedades dele no DFM/XFM

Aasn · Answer

Caro Daniel,obrigado pela aten��o.Eu utilizo o Delphi 5 que infelizmente n�o tem a fun��o SetSubCompopnent![]�sAASN...

Dopi · Answer

Nesse caso,Vc pode usar um Editor de propriedades que j� existe no Delphi...No mesmo fonte que vc registra o componente insira:  RegisterPropertyEditor(TypeInfo(TSeuSubComponente), TSeuComponente, �NomeAExibir�,  TClassProperty);...

Aasn · Answer

Valeu Daniel,esclareceu bastante, mas ainda n�o est� 100� n�o estou conseguindo trabalhar com os subcomponentes em tempo de execu��o!vc poderia me mandar algum exemplo ?[]�sAASN...

Dopi · Answer

No projeto ACBr, v�rios componentes possuem um sub-componente chamado TACBrDevice... Esse sub-componente � respons�vel pela comunica��o com os equipamentos suportados, atrav�s da Porta Serial, Paralela, ou arquivo... No D7 e superiores, usei o Setsubcomponente conforme descrito no inicio do t�pico... no D5, usei o RegisterPropertyEditor... Observe o trecho de codigo que est� dentro do [i:ab8d70f243]{$IFNDEF Delphi6_UP}[/i:ab8d70f243]

procedure Register;
begin
  RegisterComponents(�ACBr�, [TACBrECF, TACBrCalculadora, TACBrGAV, TACBrCHQ,
     TACBrLCB, TACBrDIS, TACBrTER, TACBrBAL, TACBrExtenso, TACBrTroco, TACBrValidador
     {$IFDEF VisualCLX}, TACBrEnterTab{$ENDIF} ]);

  { Registrando os Editores de Propriedade }
  RegisterPropertyEditor(TypeInfo(TACBrAboutInfo), nil, �AboutACBr�,
     TACBrAboutDialogProperty);
  RegisterPropertyEditor(TypeInfo(String), TACBrGAV, �StrComando�,
     TACBrGAVStrComandoProperty);
  RegisterPropertyEditor(TypeInfo(String), TACBrCHQ, �ArquivoBancosINI�,
     TACBrFileNameProperty);

  {$IFNDEF Delphi6_UP}
  RegisterPropertyEditor(TypeInfo(TACBrDevice), TACBrECF, �Device�,
    TClassProperty);
  RegisterPropertyEditor(TypeInfo(TACBrDevice), TACBrGAV, �Device�,
    TClassProperty);
  RegisterPropertyEditor(TypeInfo(TACBrDevice), TACBrCHQ, �Device�,
    TClassProperty);
  RegisterPropertyEditor(TypeInfo(TACBrDevice), TACBrLCB, �Device�,
    TClassProperty);
  RegisterPropertyEditor(TypeInfo(TACBrDevice), TACBrDIS, �Device�,
    TClassProperty);
  RegisterPropertyEditor(TypeInfo(TACBrDevice), TACBrBAL, �Device�,
    TClassProperty);
  RegisterPropertyEditor(TypeInfo(TACBrDevice), TACBrTER, �Device�,
    TClassProperty);
  {$ENDIF}

  { Registrando os Editores de Componente }
  RegisterComponentEditor(TACBrCalculadora, TACBrCalculadoraEditor);
  RegisterComponentEditor(TACBrECF, TACBrECFEditor);
end;

Aasn · Answer

Valeu Daniel,agora ficou claro como o Delphi 5 trabalha com os subcomponentes, obrigado!E a prop�sito achei interessante a proposta do Automa��o Comercial Brasil, irei me inscrever como colaborador e ajudar no que for poss�vel.[]�sAASN...