sábado, 2 de maio de 2009

Dicas Delphi - Criando 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}
Try
Form2.ShowModal;{Mostra form em modo exclusivo}
Finally
Form2.Free; {Libera Memória}
End;
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 alterar no delphi, no menu Options, opção Project. Mudando os forms a serem criados dinamicamente da coluna Auto-Create Forms para Avaliable Forms.

Um comentário:

Anônimo disse...

Ja, fast einem und dasselbe. cialis generika bestellen cialis 20mg kaufen [url=http//t7-isis.org]levitra[/url]