Form Fecha Sozinho

Delphi

11/11/2010

Alguém já passou por esta situação?   Na minha aplicação, ao chamar qualquer form usando:
procedure TfrmPrincipal.Ac_Cadastros_CidadesExecute(Sender: TObject);   
begin
    Application.CreateForm(TfrmCidades,frmCidades);
    frmCidades.ShowModal;
    frmCidades.Free;
end;
  Quando vou fazer uma busca e clico no botão ok, o form se fecha sozinho.
Agora se eu vou em Project-> Options e coloco ele para abrir antes do form principal só para testar.
Ele abre normalmente e faz a busca. Alguém teria uma idéia do que seria isso?
Adilson Rumao

Adilson Rumao

Curtidas 0

Respostas

Adilson Rumao

Adilson Rumao

11/11/2010

Alguém já passou por esta situação?   Na minha aplicação, ao chamar qualquer form usando:

procedure TfrmPrincipal.Ac_Cadastros_CidadesExecute(Sender: TObject);
begin
    Application.CreateForm(TfrmCidades,frmCidades);
    frmCidades.ShowModal;
    frmCidades.Free;
end;
  Quando vou fazer uma busca e clico no botão ok, o form se fecha sozinho.
Agora se eu vou em Project-> Options e coloco ele para abrir antes do form principal só para testar.
Ele abre normalmente e faz a busca. Alguém teria uma idéia do que seria isso?
GOSTEI 0
Rafael Pimenta

Rafael Pimenta

11/11/2010

Voce não esta utilizando o botao TBitBtn1 com a propriedade kink = bkClose?
GOSTEI 0
Rafael Pimenta

Rafael Pimenta

11/11/2010

Eu normalmente utilizo construtores para chamar formularios de outras telas:


Constructor TForm2.Create(AOwner : TComponent; pParm1, pParm2 : String);

begin

  inherited Create(AOwner);

  Parametro1 := pParm1;

  Parametro2 := pParm2;

end;

 
Agora no seu form1, abra o form2 com a seguinte sintaxe:
  

With TForm2.Create(self, 'Aden', 'Rodrigues') do

Begin

  ShowModal;

  Free;

End;

GOSTEI 0
Wilson Junior

Wilson Junior

11/11/2010

Você tem algum ModalResultno frmCidades?
GOSTEI 0
Flavia Santos

Flavia Santos

11/11/2010

Alguém já passou por esta situação?   Na minha aplicação, ao chamar qualquer form usando:
procedure TfrmPrincipal.Ac_Cadastros_CidadesExecute(Sender: TObject);   
begin
    Application.CreateForm(TfrmCidades,frmCidades);
    frmCidades.ShowModal;
    frmCidades.Free;
end;
  Quando vou fazer uma busca e clico no botão ok, o form se fecha sozinho.
Agora se eu vou em Project-> Options e coloco ele para abrir antes do form principal só para testar.
Ele abre normalmente e faz a busca. Alguém teria uma idéia do que seria isso?


Tenta tirar o comando abaixo na hora da criação do formulário e vê se resolve...

frmCidades.Free;


GOSTEI 0
Adilson Rumao

Adilson Rumao

11/11/2010

Bom dia galera, voltei de férias hoje. Muito obrigado a todos pela ajuda e paciência. Alterei o ModalResult para mrNome e deu certo. Valew.
GOSTEI 0
POSTAR