Fórum Procedure para Destruir Forms #194760
13/11/2003
0
Salve pessoal
Estou com a seguinte duvida.
Estou fazendo um programa e sua propriedade FormStyle := fsMDIForm este é o form principal ... e todos os outros forms FormStyle := fsMDIChild
E quando eu quero fechar os forms que tem a propriedade FormStyle igual a fsMDIChild eu tenho que ir na propriedade OnClose e colocar:
FmManutClientes := nil;
Queria fazer uma procedure do tipo:
Fecha(FormQueEuQuero);
Se alguem puder me ajudar!!!
Valewww
Estou com a seguinte duvida.
Estou fazendo um programa e sua propriedade FormStyle := fsMDIForm este é o form principal ... e todos os outros forms FormStyle := fsMDIChild
E quando eu quero fechar os forms que tem a propriedade FormStyle igual a fsMDIChild eu tenho que ir na propriedade OnClose e colocar:
FmManutClientes := nil;
Queria fazer uma procedure do tipo:
Fecha(FormQueEuQuero);
Se alguem puder me ajudar!!!
Valewww
Marcelo Bh
Curtir tópico
+ 0
Responder
Posts
13/11/2003
Lucas Silva
seria isto???
for i := 0 to MDIChildCount - 1 do
MDIChildren[i].Close();
for i := 0 to MDIChildCount - 1 do
MDIChildren[i].Close();
Responder
Gostei + 0
13/11/2003
Lucas Silva
---
procedure FechaForm(form : TForm);
.
.
.
procedure TfrmPrincipal.FechaForm(form: TForm);
begin
form := nil;
end;
procedure FechaForm(form : TForm);
.
.
.
procedure TfrmPrincipal.FechaForm(form: TForm);
begin
form := nil;
end;
Responder
Gostei + 0
13/11/2003
Marcelo Saviski
[quote:8203164181=´Marcelo BH´]Queria fazer uma procedure do tipo:
Fecha(FormQueEuQuero); [/quote:8203164181]
Isso destroi com o Form, acaba com tudo, para usar ele denovo deve cria-lo antes
É isso?
Fecha(FormQueEuQuero); [/quote:8203164181]
procedure Fecha(Form: TForm);
begin
if Assigned(Form) then
Form.Release;
Form := nil;
end;Isso destroi com o Form, acaba com tudo, para usar ele denovo deve cria-lo antes
FormTal := TFormTal.Create(Application);
É isso?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)