Fórum Problema ao iniciar minha aplicação #181684
11/09/2003
0
Pessoal, está acontecendo um erro de outro mundo. Seguinte: tenho um aplicação já implantada no cliente já faz um tempo, um belo dia o cliente me pediu uma atualização e quando fui rodar minha aplicação para testar o que o cliente pediu, ela simplesmente na funciona. O que acontece, de dentro de delphi ou executando o *.exe aparece tudo beleza a tela principal e a tela de login na frente, quando termina de logar simplesmente fecha a aplicação, já procurei nos eventos OnClose, OnDestroy, OnCloseQuery e lá não tem nada fechando a aplicação, uso técnicas de herença e no form onde todos os outros forms herdam dele também não há nada mandando fechar a aplicação. Alguém já passou por isso, será que é alguma propriedade que mudei sem perceber que está fechando a aplicação, ou mesmo configuração no Delphi, uso Delphi 6. Já não sei mais o que fazer.
Interessante, no evento OnCloseQuery da tela Principal que herda deste ´formPai´ há o seguinte código
procedure TfrmFormPrincipal.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
inherited;
if Application.MessageBox(´Deseja fechar a aplicação?´,´Atenção´, MB_YESNO + MB_ICONQUESTION) = ID_YES then
begin
CanClose := True;
end
else
begin
CanClose := False;
end;
end;
Porém quando debugo não passa aqui quando a aplicação fecha.
Obrigado.
Interessante, no evento OnCloseQuery da tela Principal que herda deste ´formPai´ há o seguinte código
procedure TfrmFormPrincipal.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
inherited;
if Application.MessageBox(´Deseja fechar a aplicação?´,´Atenção´, MB_YESNO + MB_ICONQUESTION) = ID_YES then
begin
CanClose := True;
end
else
begin
CanClose := False;
end;
end;
Porém quando debugo não passa aqui quando a aplicação fecha.
Obrigado.
Fabio Colli
Curtir tópico
+ 0
Responder
Posts
12/09/2003
Nigro
Já tentou deebugar e ver qual a última linha executada?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)