URGENTE, NÃO FECHAR SEM SALVAR
12/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
12/02/2003
Okama
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
