Fabiana Freisleben

Seja bem vindo(a)ao meu blog pessoal. Nele compartilho assuntos que acho interessantes, matérias que podem ser aproveitadas por quem quiser, algumas rotinas (Delphi), Notícias da área de Informática. Também algumas outras coisas da minha rotina, como meus passa tempos ou coisas profiissionais. Navegue a vontade, comente se quiser, use a vontade.

Constructor para Formulários

Onde vai clicar para abrir o formulário:

procedure TFrm_Princiapal.Usurios1Click(Sender: TObject);
var
Frm_Cad_proprietarios: TFrm_Cad_Proprietarios;
begin
Frm_Cad_proprietarios:= TFrm_Cad_Proprietarios.Create(Application);
end;

No formulário:

public
{ Public declarations }
constructor Create(obj_owner: TComponent); override;

//------------------------------------------------------------------------------
constructor TFrm_Cad_Proprietarios.Create(obj_owner: TComponent);
begin
inherited Create(obj_owner);
self.Show();
end;
//------------------------------------------------------------------------------

0 comentários:

Pesquisar este blog

Seguidores

Sobre mim

Minha foto
Porto União, SC, Brazil
Sou Bacharel em Informática de Gestão pela UNIUV/União da Vitória-PR. Trabalho com assistência técnica em equipamentos de informática, em sua maioria impressoras.

Visitas

Desenvolvimento de sites