Fórum Form Fecha Sozinho #390349

11/11/2010

0

Delphi

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

Responder

Posts

11/11/2010

Adilson Rumao

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?
Responder

Gostei + 0

11/11/2010

Rafael Pimenta

Voce não esta utilizando o botao TBitBtn1 com a propriedade kink = bkClose?
Responder

Gostei + 0

11/11/2010

Rafael Pimenta

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;

Responder

Gostei + 0

12/11/2010

Wilson Junior

Você tem algum ModalResultno frmCidades?
Responder

Gostei + 0

14/11/2010

Flavia Santos

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;


Responder

Gostei + 0

09/12/2010

Adilson Rumao

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.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar