Fórum Erro na criação de componente #278371

Olá,

Estou com um problema sério!!!

Necessito que na criação de um componente meu, ele crie outros componentes no mesmo form, aonde esse novo componente vai ser inserido.

Por exemplo, como no código abaixo, aonde o TButton2 vai inserir o Label1 automaticamente:




unit Button2;

interface

uses
SysUtils, Classes, Controls, StdCtrls;

type
TButton2 = class(TButton)
private
FLabel: TLabel;
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents(´Teste´, [TButton2]);
end;

constructor TButton2.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

if csDesigning in ComponentState then
begin
FLabel := TLabel.Create(AOwner);
FLabel.Name := ´Label1´;
FLabel.Parent := Parent;
end;
end;

end.



O problema é o seguinte, quando eu insiro o componente TButton2 via click não tenho problema nenhum, meu programa roda certinho, mas quando eu abro o formulário onde contêm outro TButton padrão, e clico no menu ´View as Text´, e modifico simplesmente o TButton para TButton2, ele me monta o label que eu quero tranquilamente, só que ao rodar o programa aparece ´Class TLabel not found´.

Porque isso acontece?? Acontece porque o novo componente, ´Label1´, não foi inserido no ´interface section´ do meu formulário.

Ao invés de ficar:



type
TForm1 = class(TForm)
Button1: TButton2;
Label1: TLabel;
private
...



ele fica:


type
TForm1 = class(TForm)
Button1: TButton2;
private
...




Porque preciso disso?? Preciso disso, pois tenho os componentes do meu sistema todos herdados, por exemplo, TEButton, TEDBGrid e assim por diante, e comprei o pacote da DevExpress, e não quero mudar de tela em tela todos os meus componentes, isso fica inviável, quero simplesmente,
ao invés de herdar dos componentes do Delphi, herdar dos componentes da DevExpress, com a codificação para herdar não tive problemas, só me resta agora esse problema q impossibita meu programa de rodar.

Eh isso.

Qualquer ajuda será bem vinda!!!

Obrigado a todos!!!