Access Violation no showModal.

Question

Galaera alguem saberia oq pode ser quando chamo um form como showmodal ele dar access violation?

detalhe, isso acontece quando � chamado na segunda vez, na primeira chamada esta ocorrendo tudo tranquilo.

Crash · Answer

muito provavelmente... vc est� distruindo o formulario que vc esta usando o showmodal na hora q ele se fecha. Na primeira vez nao da o erro porque ele deve estar sendo criado no inicio da aplicacao... mais depois q vc chama e fecha a janela, ele se destroi.... faca o seguinte:

remova o formulario da auto-criacao.... e depois coloque o seguinte codigo:

Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;

t+

Zumbi · Answer

kra, tentei tirar da auto-cria��o, mas n�o funcionou
a forma que eu estou tentando fazer isso � a seguinte:

      if frmBuscaProduto.ShowModal = mrOk then
        begin
          qrycodigoprod.Value := frmBuscaProduto.CodigoProd;
        end;
      frmBuscaProduto.Free;

e no form busca produto no duploclick do grid eu tenho o seguinte:

  ModalResult := mrOK;

Massuda · Answer

[quote:7dc0bd3317=�zumbi�]...isso acontece quando � chamado na segunda vez, na primeira chamada esta ocorrendo tudo tranquilo.[/quote:7dc0bd3317]Pelo c�digo que voc� postou e pelo fato desse form estar sendo auto-criado, na primeira vez o form existe, mas quando executa...[quote:7dc0bd3317=�zumbi�]frmBuscaProduto.Free;[/quote:7dc0bd3317]...o form � destru�do. Logo, na segunda vez, o form n�o existe mais e da� d� o acess violation.Fa�a como o CrasH sugeriu...[code:1:7dc0bd3317]var  Form: TfrmBuscaProduto;...Form := TfrmBuscaProduto.Create(nil);if Form.ShowModal = mrOk then   begin     qrycodigoprod.Value := Form.CodigoProd;   end; Form.Free;[/code:1:7dc0bd3317]...

Armando.boza · Answer

cara, eu tive o mesmo problema a tempos atras e depois de muito pesquisar no forum comsegui solucionar.

Eu fa�o assim agora:

Tire o form da auto-cria��o
Para chamar o form use desta maneira:

FRMExemplo := TFRMExemplo.create(application);
try
   FRMExemplo.showmodal;
finally
   FRMExemplo.release;
   FRMExemplo := nil;
end;

Pronto, nunca mais tive este problema com os forms .. que diga-se de passagem � um saco hein ... kkkkk

Zumbi · Answer

Galera, � isso ai mesmo. funcionou vejam como ficou o codigo:

var
  AbreForm: TfrmBuscaProduto;
begin
      AbreForm := TfrmBuscaProduto.Create(nil);
      try
        if AbreForm.ShowModal = mrOk then
          begin
            qrycodigoprod.Value := AbreForm.CodigoProd;
          end;
      finally
        AbreForm.Free;
      end;
    end;

Vlw pela for�a!

F�rum Access Violation no showModal. #299398