Qual o m�todo controla o AOwner em um novo Componente?

Question

Estou criando dois componentes cada qual com sua finalidade.[code:1:6d64a6cd74]type   TCompA = class(TComponent)    //bla bla bla  end;  TCompB = class(TComponent)    //bla bla bla  end;[/code:1:6d64a...

Rodc · Answer

TComponent n�o � um container. Voc� precisa herdar de um container como por exemplo o TPainel....

Weber · Answer

Desculpe colega mas voc� n�o esta correto em sua afirma��o. Por exemplo:

TStringGrid < TDrawGrid < TCustomDrawGrid < TCustomGrid < TCustomControl
TPanel < TCustomPanel < TCustomControl

Observe que tando o TStringGrid quanto o TPanel tem sua origem no TCustomControl.
Algum metodo no TCustomPanel ou no TPanel fazem o trabalho.

Rodc · Answer

Mas n�o de TComponent!!!!...

Weber · Answer

N�o � esta a quest�o de ser de TComponent ou TCustomControl, no final das contas tudo � TComponent. Como eu j� havia dito mais acima, meu problema n�o esta na cria��o do componente e suas a��es e sim e faze-lo aceitar outros componentes sobre ele.
Tenho certeza que existe algum metodo ou v�rios m�todos que v�o fazer com que meu componente vindo do TComponent aceite outros componentes dentro dele.

Rodc · Answer

Pesquisando o c�digo fonte da VCL, encontrei o c�digo abaixo na cria��o do TCustomPanel. Acho que o csAcceptsControls faz ele aceitar os componentes, mas n�o cheguei a testar.

constructor TCustomPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents,
    csSetCaption, csOpaque, csDoubleClicks, csReplicatable];
  Width := 185;
  Height := 41;
  FAlignment := taCenter;
  BevelOuter := bvRaised;
  BevelWidth := 1;
  FBorderStyle := bsNone;
  Color := clBtnFace;
  FFullRepaint := True;
  UseDockManager := True;
end;

Weber · Answer

Irei verificar, obrigado pela dica....

Weber · Answer

Exatamente como sua dica, funciona perfeitamente. :D Mais uma vez obrigado!...

F�rum Qual o m�todo controla o AOwner em um novo Componente? #352312