F�rum Evento OnCloseQuery do Form e problemas #298476

05/10/2005

ol� pessoal

estou utilizando no meu sistema o evento Onclosequery do Form, para verificar se existem registros em insert ou edit.
caso exista eu perunnto ao usu�rio : �salvar o registro n�o salvo?�, a� apresento as op��o
mryes
mrNo
mrCancel

se ele cancelar, Canclose recebe False e o form n�o � fechado.
se ele optar por N�o salvar, d� um Table.cancel e fecha o form.

o Problema est� no salvar, caso ele clique em Sim. pq no salvar eu executo o BtnSalvarOnclick(self); e ap�s fecho o form.
s� que se ocorrer algum erro no salvar, como por exemplo campos obrigat�rios, ele n�o salva e fecha o form mesmo assim.
existe alguma maneira de saber se BtnSalvarOnclick(self) foi executado com sucesso, pra s� ap�s fechar o form ?

procedure TFrm1F.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if((Tbl1.State = dsinsert)or
     (Tbl1.State = dsedit))then
  begin
    case DtMdlGcm1.BsMsg.MessageDlg(�O registro atual n�o foi salvo.�+#13+10+�Salvar antes de fechar ?�,
         mtConfirmation, [mbYes,mbNo,mbCancel], 1)of
      mryes    :
        begin
          BtnSalvar.Onclick(self);         
        end;
      mrno     :
        begin
          Tbl1.Cancel;
        end;
      mrcancel :
        begin
          Canclose := False; 
        end;
  end;
end;
|

obrigado

Diogo

Diogoalles

Curtir t�pico

+ 1

Responder

Post mais votado

05/10/2005

Em vez de voc� fazer essa coisa horrivel que � chamar um evento, cria uma fun��o que retorne true ou false. Se a grava��o dos dados ocorrer com sucesso ent�o retorna true e fecha o form. Sen�o, retorna false e n�o fecha o form.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  DialogResult: Word;
begin
  if (Tbl1.State in [dsinsert, dsEdit])  then
  begin
    DialogResult := MessageDlg(�O registro atual n�o foi salvo.�+ 13 + 10 + �Salvar antes de fechar?�, mtConfirmation, [mbYes,mbNo,mbCancel], 1);

    if DialogResult = mrYes then
      CanClose := SalvaRegistro()
    else if DialogResult = mrYes then
      Tbl1.Cancel;
    else
      Canclose := false;
  end;
end;

Rjun

Responder

Gostei + 2