Fórum Criação de Componente - Mudar o Caption do Form #323143

unit TTesteComps;

interface

uses
  SysUtils, Classes, Forms;

type
  TTesteComp = class(TComponent)
  private
    FAtivo: Boolean;
    function GetAtivo: Boolean;
    procedure SetAtivo(const Value: Boolean);
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOWner: TObject);
    procedure Execute;
  published
    { Published declarations }
    property Ativo : Boolean read GetAtivo write SetAtivo;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(´Samples´, [TTesteComp]);
end;

{ TTesteComp }

constructor TTesteComp.Create(AOWner: TObject);
begin
  Execute;
end;

procedure TTesteComp.Execute;
begin
  if FAtivo then
    TForm(Self.Owner).Caption := ´Teste do meu componente´
  else
    TForm(Self.Owner).Caption := TForm(Self.Owner).Caption;
end;

function TTesteComp.GetAtivo: Boolean;
begin
  Result := FAtivo;
end;

procedure TTesteComp.SetAtivo(const Value: Boolean);
begin
  FAtivo := Value;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  TesteComp1.Execute;
end;