[Resolvido] Fechar form fsMDIChild

[wilsoncrescencio 1]

Eu tenho um formulário que fechava normalmente... depois que eu passei esse for para fsMDIChild quando eu clico no bt com o código:

procedure TFSimullado.fecharumClick(Sender: TObject);
begin
close;
end;

ele apenas minimiza no (formstyle: fsMDIForm) form que tem o menu...

para ele fechar realmente é necessário outro código?

[bdexterholland 0]

Kara, eu fui fazer uns testes para poder te responder e aconteceu um treco estranho...

 

eu coloquei um Form como MDIForm e coloquei um botão, crei um outro form como MDIChild e coloquei um botão. No MDIForm, coloquei o comando

form2.show;

e no botão do MDIChild, eu coloquei

close;

não sei porque, ao arrastar o MDIChild, ele passou por "traz" do MDIForm...

 

Isso é normal?

 

Fiz isto no delphi7

[wilsoncrescencio 1]

Oi bdexterholland... provavelmente os formulários estão em ordem adversa...

Você corrigi isso na aba Project. Nela tem um item chamado Option... você muda a ordem em que o sistema chama os forms...

 

Agora... obrigado por tentar me ajudar... só sua tentativa já valeu...

 

Respondendo a minha pergunta.... eu fiz o seguinte:

 

No form(formstyle: fsMDIChild)

 

procedure TFSimullado.fecharumClick(Sender: TObject);
begin
Destroy;
end;

E no evento Destroy... eu fechei a tabela:

procedure TFSimullado.FormDestroy(Sender: TObject);
begin
dm1.tab_aluno.close;
end;

end.

Não sei se é o jeito certo... mas está funcionando...

 

Um grande abraço...

[Rodrigo Miss 1]

Exatamente isso kra ...

Forms mdi's precisam ser destruidos para liberar da memoria ...

Tbm não precisa dar um .show num form mdi porque no metodo create do form, ele já exibido automaticamente ...

[wilsoncrescencio 1]

Como sempre... Rodrigo é efetivo....

Tópico resolvido...dúvida sanada....

Obrigado a todos....