URGENTE, N�O FECHAR SEM SALVAR

Question

COMO FA�O PARA QUE QUANDO O USUARIO ESTIVER COM O APPEND ABERTO EM UM FORM, OU SEJA CRIANDO OU EDITANDO UM REGISTRO COMO FA�O PARA QUE QUANDO ELE FOR FECHAR N�O PERMITIR S� DEPOIS DE GRAVAR OU ENT�O EXIBIR UMA MENSAGEM SE ELE DESEJA SALVAR OU N�O OU COISA ASSIM.

Okama · Answer

Teste com �State� no evento OnCloseQuery do Form

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Table1.State = dsEdit then begin
Showmessage(�Tabela em modo de Edi��o�);
Canclose: False;
end;

if Table1.State = dsInser then begin
Showmessage(�Tabela em modo de inser��o�);
Canclose: False;
end;

end;