Como fechar formulário MDIChild genérico
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
Curtidas 0
Respostas
Fabiano Gonzaga
07/01/2015
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
GOSTEI 0