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;
Assinar:
Postar comentários (Atom)
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...
-
Usei muito esta função no Clipper e como não a encontrei no Delphi, recriei-a e estou publicando para compartilhar com a comunidade function...
-
Alterar as cores do título de um DBGrid em tempo execução dará mais vida ao seu programa e trará uma aparência mais profissional ao sistema....
-
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 For...
Nenhum comentário:
Postar um comentário