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;
