Buscar por:

Como criar forms em tempo de execução

Código

Como Criar Forms Em Tempo de Execução

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ÃO MODAL. 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.