Problemas no evento Onclose
13/12/2005
0
procedure TFConsultaFornecedores.FormClose(Sender: TObject; var Action: TCloseAction); begin if MessageDlg(´Deseja fechar o aplicativo?´,mtConfirmation,[mbYes,mbNo],0)= mrYes then begin Action:=caFree; DMEstoque_MP.CDSForne.Close; DMEstoque_MP.CDSFornec.Close; end else Action:=caNone; end;
O problema é que ao clicar no botão fechar[X], primeiro o formulário é fechado e depois ele me mostra a MsgDlg. Não tô conseguindo achar o problema.... :oops:
Se alguém puder me dar uma dica, obrigada.
Eliane Dorr
Posts
13/12/2005
Edilcimar
var Action: TCloseAction);
begin
if MessageDlg(´Deseja fechar o aplicativo?´,mtConfirmation,[mbYes,mbNo],0)= mrYes then
begin
DMEstoque_MP.CDSForne.Close;
DMEstoque_MP.CDSFornec.Close;
FormNomedoForm := Release;
end
else
Action:=caNone;
end;
tente este
13/12/2005
Eliane Dorr
Outra coisa: tenho também um BtnFechar, e clicando sobre ele, ocorre a mesma coisa, o formulário é fechado e depois aparece a MsgDlg. Não sei o que estou fazendo de errado. :roll:
13/12/2005
Massuda
13/12/2005
Eliane Dorr
13/12/2005
Eliane Dorr
13/12/2005
Massuda
Clique aqui para fazer login e interagir na Comunidade :)