URGENTE, NÃO FECHAR SEM SALVAR
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.
Ourofrio.sp
Curtidas 0
Respostas
Okama
12/02/2003
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;
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;
GOSTEI 0