if DatAM.tabela.state in [DsEdit,DsInsert] then begin //checa se está em ediçã e inserção " pode testar só 1 se precisar"
If Application.Messagebox('Deseja que o programa salve e saia?.','Aviso',52) = 6 then// se clicar em sim(6) ele salva
DataM.tabela.post;////dai uso o commit etc... porque uso firebird
else
abort; // se clicar em não ele aborta o fechamento do form
end;
[]'s
Allan
----- Original Message -----
From: hebervan
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 02, 2006 2:07 PM
Subject: [delphi-br] Codificação do Botão "Sair"
Olá pessoal, sou iniciante e estou fazendo um software de cadastro e
agora apareceu uma dúvida na codificação do botão "Sair". Eu quero que
ele verifique antes se a tabela está em modo de edição. O que eu fiz
até agora está assim, mas só dá erro. Alguém pode me dar uma dica?
Obrigado!
procedure TfCadSupSetor.BitBtnSairClick(Sender: TObject);
begin
If TbSupSetor.Edit Then
ShowMessage('Cancele a operação antes de fechar o programa.')
else
close
end
end;
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.