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: [email protected] [mailto:[email protected]] Em
nome de framosip
Enviada em: quarta-feira, 2 de setembro de 2009 14:06
Para: [email protected]
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;
