Buscar

Uma procedure para chamar seus forms

Código

// Uso da função:
//
// procedure TfrmPrincipal.Forum1Click(Sender: TObject);
// begin
// CriaForm(TfrmForum);
// end;


procedure CriaForm(NomeForm: TFormClass);
begin
TForm(NomeForm) := NomeForm.Create(NIL);
Try
TForm(NomeForm).ShowModal;
Finally
FreeAndNil(NomeForm);
End;
end;
   

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Arquivos
Adicionada dia: 14/07/09
Por: Herminio L. Paes Júnior
Visualizada: 3980 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009