D�vida na cria��o de componentes !!!

Question

Gostaria de saber como criar uma property de um componente tipo uma [+]Font que tem subpropriedades.ex:     [+]OptionsControls             option1 := (Receba False ou True)             option2 := (Rec...

Vinicius2k · Answer

Colega,Resumidamente, pode-se dizer que o melhor nestes casos � a cria��o de um outro objeto para que sirva de sub-propriedade e um tipo enumerado para �travar� a sele��o de valores... algo mais ou menos assim :[code:1:e034fa3051]type  TOption3 = (tCPF, tCGC, tRG, tPIS);  TOptionControls = class(TPersistent)  private    FOption1: Boolean;    FOption2: Boolean;    FOption3: TOption3;  public    constructor Create;    destructor Destroy; override;  published    property Option1: Boolean read FOption1 write FOption1;    property Option2: Boolean read FOption2 write FOption2;    property Option3: TOption3 read FOption3 write FOption3;  end;[/code:1:e034fa3051]Neste modelo, a implementa��o da propriedade OptionControls no seu componente seria :[code:1:e034fa3051]TSeuCompoente = Class(TComponent)private  ...  FOptionControls: TOptionControls;  ...public  ...published  ...  property OptionControls: TOptionControls read FOptionControls write FOptionControls;  ...end;[/code:1:e034fa3051]Vc precisar� apenas implementar no Create do seu componente a cria��o deste objeto �sub-proprieadade�, e no Destroy a destrui��o do mesmo.Al�m, � claro, de implementar toda a classe deste objeto com seus m�todos, eventos e Procedures/Functions Get/Set, se forem necess�rias.[code:1:e034fa3051]procedure TSeuComponente.Create(...);  ...  FOptionControls := TOptionControls.Create;  ...end;[/code:1:e034fa3051][code:1:e034fa3051]procedure TSeuComponente.Destroy;  ...  FOptionControls.Free;  ...end;[/code:1:e...

Ffc · Answer

Vinicius2k muito obrigado, deu certo !!!abra�os !!!...

F�rum D�vida na cria��o de componentes !!! #263546