erro no comando application.createform

Question

oi, sempre que eu executo o comando no delphi7 application.createform, por exemplotry Fpessoa.show; except Application.Createform(TFpessoa,Fpessoa); end;o programa compila certo, mas quando chega ness...

Carnette · Answer

[quote:32073f80c1=�Anonymous�]oi, sempre que eu executo o comando no delphi7 application.createform, por exemplotry Fpessoa.show; except Application.Createform(TFpessoa,Fpessoa); end;o programa compila certo, mas quando chega nesse comando da o seguinte erro [color=red:32073f80c1]project pss.exe raised exception class EAccessViolation with message Access violation at address 0993DAC6 in module VCL70.bpl[/color:32073f80c1], no delphi5 funcionava sem problema.[/quote:32073f80c1]O amiguinho....J� vi um monte de maluquices dos �programadores�..por aqui....mas, esta � nova...Acredito que voce quiz dizer com este comando algo assim:Abra o FORM FPESSOA no MODAL...xiii deu erro...CRIA O FORM FPESSO no MODAL...Sinceramente N�O faz sentido este racicionio...Quem sabe voce coloca o comando Application.Createform(TFpessoa,Fpessoa) ANTES do abertura do form...Voce quer testar se o form est� aberto ?? N�o � assim que se faz....Cara, esta tua linha para MEU modo de  ver(posso estar errado) mas, EST� TOTALMENTE IL�GICA...cCria��a de form em tempo de execu��o com TRY e Except, � DENTRO do TRY n�o do except......

Anonymous · Answer

O amiguinho....J� vi um monte de maluquices dos �programadores�..por aqui....mas, esta � nova...Acredito que voce quiz dizer com este comando algo assim:Abra o FORM FPESSOA no MODAL...xiii deu erro...CRIA O FORM FPESSO no MODAL...Sinceramente N�O faz sentido este racicionio...Quem sabe voce coloca o comando Application.Createform(TFpessoa,Fpessoa) ANTES do abertura do form...Voce quer testar se o form est� aberto ?? N�o � assim que se faz....Cara, esta tua linha para MEU modo de  ver(posso estar errado) mas, EST� TOTALMENTE IL�GICA...cCria��a de form em tempo de execu��o com TRY e Except, � DENTRO do TRY n�o do except...[/quote]e codigo funciona da seguinte forma estou no form principal e quando pressiono um bot�o ele executa o comando try Fpessoa.show; except [color=red:69e94e1f90]Application.Createform(TFpessoa,Fpessoa); end; [/color:69e94e1f90]e nesse comando ele abre o form Fpessoa exceto se ele j� estiver aberto, entendeu?...

Okama · Answer

Completando a l�gica, n�o seria melhor verificar se o formu�l�rio est� aberto antes de abr�-lo??

for I := 0 to Screen.FormCount-1 do
if Screen.Forms[i].Name = �Form1� then
Showmessage(�Formul�rio j� est� aberto!!!);

Carnette · Answer

[quote:533d59c372=�Okama�]Completando a l�gica, n�o seria melhor verificar se o formu�l�rio est� aberto antes de abr�-lo??for I := 0 to Screen.FormCount-1 do    if Screen.Forms.Name = �Form1� then       Showmessage(�Formul�rio j� est� aberto!!!);[/quote:533d59c372]Obrigado Okama...me facilitou a explica��o.......

Carlos Filho · Answer

Acho que entendi o que voce quer fazer...
Vc quer ECONOMIZAR MEM�RIA CRIANDO FORMUL�RIOS APENAS QUANDO ELES FOREM REQUERIDOS...

�tima atitude, pouca gente se preocupa com isso, parab�ns. Voc� est� seguindo bons par�metros de programa��o...

Para que isso funcione corretamente voc� deve fazer assim:


begin
if not Assigned(Form2) then
Application.CreateForm(TForm2,Form2)
else
Form2.ShowModal; //Form2.Show, caso n�o queira bloquear o mouse fora de Form1 

end;

Assigned(Form2) verifica se o formul�rio j� foi criado, pois quando ele est� criado, um ponteiro � colocado dentro da vari�vel Form2, que � da classe TForm2!

Espero ter te ajudado