FormCreate

[Rodrigo Miss 1]

Ola galera, seguinte,,, to fazendo o seguinte

 

procedure TfrmPrincipal.BaixaClick(Sender: TObject);beginfrmBaixaPreVenda:= TfrmBaixaPreVenda.Create(nil);frmBaixaPreVenda.ShowModal;frmBaixaPreVenda.Free;end;

no form de BaixaPreVenda,, tm alguns bitbtn ... e qdo eu cliko nos bitbtn ele executa o metodo q estiver o evento clike do botao,, mah a tela de BaixaPreVenda,,, c fexa sozinho.... alguem sabe oke q tm de errado ?

[marcio.theis 3]

Ele chega a executar o código do Click do botão ? Qual a propriedade que esta em ModalResult do botão ?

[Rodrigo Miss 1]

Sim Marcio,, veja abaixo :

Xamando o form BaixaPreVenda

 

procedure TfrmPrincipal.BaixaPrVenda1Click(Sender: TObject);beginfrmBaixaPreVenda:= TfrmBaixaPreVenda.Create(nil);frmBaixaPreVenda.ShowModal;frmBaixaPreVenda.Free;end;

 

procedure TfrmBaixaPreVenda.btnEditarClick(Sender: TObject);beginif dtm.qry.IsEmpty then	begin	Application.MessageBox('Nenhum registro selecionado para editar!','Controle Pré Venda', mb_ok or mb_IconWarning);	exit;	end;dtm.qry.Edit;Editar:= true;frmPreVenda.Show;end;

ele abre normal o form frmPreVenda para editar o registro... mah fecha automaticamente o fomr frmBaixaPreVenda;;;

 

A prop. modal resul do botao ta como mrRetry,, mah ja tentei com mrOk tb... e dava na msm

[marcio.theis 3]

Coloca como mrNone

[Rodrigo Miss 1]

Ok Marcio... agora fungo direitinho... so + uma coisa...pq esse tipow de xamada de form,,,, criando ele em tempo de execucao ... ele so abre em ShowModaltentei abri como Show,,, mah ele abre rapidinho e fexa automaticamente,,, nem da pra ver q esta abrindo ???

[marcio.theis 3]

Bom... Ai teríamos que analizar o seu código, mas quando você chama o outro form este seu ele perde o foco, sumindo, já no ShowModal ele continua aberto, se você for ver, o form contínua aberto, mas não aparecendo.

[Rodrigo Miss 1]

Axo q axei o problema kra,, eh q qdo eu xamava como .Show eu fazia o seguinte:

 

 

form2:= Tform2.create(Application);form2.Show;form1.Free;

e nda verdade qdo xama o form como .show tm q fazer assim:

 

no evento onClose do form 2:

 

FreeAndNil(form2);

certo?????

 

dessa forma funciona corretamente..,,

agora o estranho eh qdo eu uso DBEdit e qry,,, na maioria das vezes no evento onClose da violacao de memoria..

[marcio.theis 3]

Por qual motivo você executa form1.Free ? Sendo que foi o Form2 que criou anteriormente na linha acima.. A violação pode ocorrer pelo Form1 não estar criado, no caso ele liberar o Form2 da memória, tenta liberar o Form1, mas como não esta na memória da o erro...

[Rodrigo Miss 1]

Opa,, ali foi um erro de digitacao kra

era pra ser assim:

 

form2:= Tform2.create(Application);form2.Show;form2.Free;

 

e o form1 no caso ele ta definido pra criar em tempo de criacao...

[marcio.theis 3]

O seu comando .Free irá destruir o form e tirar ele da memória, erro de acesso a memória quando fecha, pode ser tb algum objeto criado q naum foi liberado da memória...