Buscar por:

Como criar forms em tempo de execução?

Código

{Para você economizar memória, pode-se criar os forms de sua aplicação somente no momento da execução. Na criação do Form você define se ele é MODAL ou NÃOMODAL. Para Isso observe os seguintes códigos: }

//MODAL- Mostra form em modo exclusivo

procedure TForm1.Button1Click(Sender: TObject); 

begin 

Application.CreateForm(TForm2, Form2);{Carrega form na memória} 

Form2.ShowModal;{Mostra form em modo exclusivo} 

Form2.Free; {Libera Memória} 

end; //NÃO MODAL - Mostra form em modo não exclusivo

procedure TForm1.Button1Click(Sender: TObject); 

begin 

Application.CreateForm(TForm2, Form2);{Carrega form na memória} 

Form2.ShowModal;{Mostra form em modo exclusivo} 

end; //No evento OnClose do Form2 coloque o seguinte código.

procedure TForm2.FormClose (Sender: Tobject; var Action : TCloseAction); 

begin 

Action:= caFree; 

end; {Aliado a este código, deve deve alterar no delphi, no menu Options, opção Project. Mudando os forms a serem criados dinamicamente da coluna Auto-Create Forms para Avaliable Forms.}