Trabalha no Create dele.
*
constructor Create(AOwner: TComponent); override;
*Provavelmente se arrastou para um form o AOwner que vai vir é o próprio
form, então:
constructor Create(AOwner: TComponent);
begin
if AOwner is TForm then
begin
with AOwner as TForm do
begin
//configura oq quiser aqui...
end;
end else
Raise Exception.Create('Este componente só poder ter um Owner do
tipo TForm ou descente do mesmo.');
end;
framosip escreveu:
>
>
> Amigos,
> Boa tarde.
>
> Estou tentando criar um componente que ao arrastá-lo para o Form, algumas
> propriedades do form se alterem em tempo de execução.
>
> Em pesquisa pela internet, vi muitas informações de criação de
> componentes onde
> extendemos algumas opções de componentes já existentes como o TEdit. A
> princípio
> não é o meu caso.
>
> Criei apenas o básico e gostaria da ajuda de vocês para tentar alterar
> algumas
> propriedades do Form.
>
> O que fiz foi:
>
> unit FormDefault;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
> Dialogs;
>
> type
> TFormDefault = class(TComponent)
> private
> { Private declarations }
> protected
> { Protected declarations }
> public
> { Public declarations }
> constructor Create(AOwner: TComponent); override;
> destructor Destroy; override;
> published
> { Published declarations }
> end;
>
> procedure Register;
>
> implementation
>
> { TFormDefault }
>
> procedure Register;
> begin
> RegisterComponents('Ramos', [TFormDefault]);
> end;
>
>
