Fórum Como fechar formulário MDIChild genérico #506566
07/01/2015
0
Boa tarde a todos,
estou programando um sistema usando forms MDIChilds por serem muitos fomulários que usam tanto códigos como objetos iguais, fiz um formulário genérico - um formulário para servir de classe - e criei todos os outros a partir deste. Como é de constume é necessário inserir no evento onClose de todos os formulários MDIChild akele freeAndNil no entanto são MUITOS, e gostaria de saber se tem um jeito de eu fazer isso no formulário genérico sem ter de fazer um a um todos os herdeiros...
já tentei usar o FreeAndNil mas não deu certo
o mesmo com Action := caFree; e formGenerico := nil; nenhum deles funciona, quando clico em fechar o fomulário é minimizado e a não ser que eu coloque estes código no formulário herdeiro ele não fecha de jeito nenhum!!!!
se alguém puder me dar uma luz eu agradeço muito
estou programando um sistema usando forms MDIChilds por serem muitos fomulários que usam tanto códigos como objetos iguais, fiz um formulário genérico - um formulário para servir de classe - e criei todos os outros a partir deste. Como é de constume é necessário inserir no evento onClose de todos os formulários MDIChild akele freeAndNil no entanto são MUITOS, e gostaria de saber se tem um jeito de eu fazer isso no formulário genérico sem ter de fazer um a um todos os herdeiros...
já tentei usar o FreeAndNil mas não deu certo
o mesmo com Action := caFree; e formGenerico := nil; nenhum deles funciona, quando clico em fechar o fomulário é minimizado e a não ser que eu coloque estes código no formulário herdeiro ele não fecha de jeito nenhum!!!!
se alguém puder me dar uma luz eu agradeço muito
Fabiano Gonzaga
Curtir tópico
+ 0
Responder
Posts
08/01/2015
Fabiano Gonzaga
Pessoal consegui resolver sozinho, dando uma linda na SysUtils mais exatamente no procedimento FreeAndNil, coloquei o código a seguir no evento onClose do MDIChild Genérico
por incrível que pareça consegui resolver o problema que vinha me dando dor de cabeça a anos com apenas estas duas linhas. Fica ai a dica pra quem algum dia se deparar com o mesmo problema
Action := caFree; Pointer(Sender) := nil;
por incrível que pareça consegui resolver o problema que vinha me dando dor de cabeça a anos com apenas estas duas linhas. Fica ai a dica pra quem algum dia se deparar com o mesmo problema
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)