RES: [delphi-br] Componente - Formulário

[Cristiano R F Maciel]

Boa tarde,

Não sou bom em componentes, mas como você não teve resposta melhor, fiz um
pequeno exemplo que talvez te ajude:

Qualquer dúvida de um grito!

Cristiano R F Maciel

/////////////////////////////////////////////////////////////////////

unit FormDefault;

interface

uses
  Classes, Forms;

type
  TFormDefault = class(TComponent)
  public
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
  begin
    RegisterComponents('Ramos', [TFormDefault]);
  end;

procedure TFormDefault.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    // liberar o formulário da memória
    Action:= CAFree;
  end;
  
constructor TFormDefault.Create(AOwner: TComponent);
  begin
    // criar o componente
    inherited Create(AOwner);
    
    // se o AOwner for um formulário (por regra deve ser)
    if (AOwner is TForm) then
      begin
        // propriedades
        TForm(AOwner).BorderStyle:= bsDialog;
        TForm(AOwner).Caption:= 'Este é apenas um pequeno exemplo...';
        // posição
        TForm(AOwner).Top:= 0;
        TForm(AOwner).Left:= 0;
        TForm(AOwner).Height:= 300;
        TForm(AOwner).Width:= 300;
        // eventos
        TForm(AOwner).OnClose:= FormClose;
      end;
  end;

end.

/////////////////////////////////////////////////////////////////////


De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de framosip
Enviada em: quarta-feira, 2 de setembro de 2009 14:06
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Componente - Formulário

  
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;