If Tabela.State IN [DSINSERT,DSEDIT] Then
Begin
If Application.MessageBox('Deseja salvar as alterações na Tabela
?','Usuário', MB_ICONWARNING + MB_YESNO) = MRYES Then
Begin
tabela.post
End
Else
Begin
tabela.Cancel;
End;
End;
Espero ter ajudado.
Att,
Eduardo Buffara
----- Original Message -----
From: "hebervan" <[EMAIL PROTECTED]>
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 >>>>>
Links do Yahoo! Grupos
--
<<<<< 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!.