domingo, 19 de abril de 2020

Para criar Formulário e destruir



No evento OnClique de um botão ou menu, etc., colocar o texto abaixo (supondo-se que você tenha setado a propriedade name do form como Form1):


Begin
If (Form1 = Nil) Then // Verifica se o formulário está vazio (Nil).
Form1 := TForm1.Create(Application); // Cria o formulário.
Form1.WindowState := wsNormal; // Se o usuario maximizou ou minizou o formulário, ele volta para o tamanho nornal.
Form1..Show; //ou Form1.ShowModal - Mostra o formulário na tela.
End;

Obs.: Na linha onde criamos o formulário, colocamos o (nome do formulário) := T(nome do formulário).Create(Application);

No evento OnClose do formulário Form1, coloque:


Begin
Action := caFree; // Libera o formulário da memória.
Form1 := Nil; // Deixa o formulário vazio
End;

Nenhum comentário:

Política Privacidade adicoaraci suervisores

Política Privacidade A sua privacidade é importante para nós. É política do adicoaraci supervisor respeitar a sua privacidade em relação a q...