F�rum Apenas 1 instancia do MDIChild #403919

28/06/2011

Bom, ao fechar um MDIChild utilizo o seguinte codigo :
Action := caFree; TForm(Self) := nil;

Quando vou abrir , fa�o o seguinte :
if not Assigned(FrmFormulario) then Application.CreateForm(TFrmFormulario, FrmFormulario) else frmFormulario.Show;
Ele funciona perfeitamente enquanto eu n�o fecho o formulario, quando eu fecho o formulario, e tento abrir uma nova instancia, ele vai direto para o frmFormulario.show, isto �, h� uma instancia criada na memoria (mais na verdade n�o tem nada aberto).
o que fazer?

Ronaldo Lanhellas

Curtir t�pico

+ 0

Responder

Posts

28/06/2011

Emerson Nascimento

troque

TForm(Self) := nil;

por

FrmFormulario := nil;

Responder

Gostei + 0

28/06/2011

Ronaldo Lanhellas

Utilizo um form modelo onde preciso utilizar codigos genericos, mais tentei no form especializado usar o c�digo que voce sugeriu e tamb�m n�o funcionou

Responder

Gostei + 0

30/06/2011

Ronaldo Lanhellas

alguem porfavor !!

Responder

Gostei + 0

01/07/2011

Ronaldo Lanhellas

Alguma sugest�o : (

Responder

Gostei + 0

01/07/2011

Wilson Junior

Tente assim:

try
  if  not Assigned(FrmFormulario) then
      Application.CreateForm( TFrmFormulario, FrmFormulario )
  else
      frmFormulario.Show
  ;
finally
  FreeAndNil( frmFormulario );
end;

Espero ter colaborado.

Responder

Gostei + 0

01/07/2011

Emerson Nascimento

tente assim:

if not Assigned(FrmFormulario) or not FrmFormulario.Showing then  Application.CreateForm(TFrmFormulario, FrmFormulario)else  frmFormulario.Show;

Responder

Gostei + 0

01/07/2011

Ronaldo Lanhellas

Muito obrigado Emerson, n�o havia pensado nessa possibilidade (t�o simples e eficiente) .
Resolvido !!

Responder

Gostei + 0

09/05/2013

Jos�

Este t�pico esta sendo fechado por inatividade. Se necess�rio, sinalizar para que seja reaberto ou abrir um novo.

Responder

Gostei + 0