Tenta assim

   If  TbSupSetor.State = dsEdit Then
      ...

Elcio Domingos Ramos
DEMAG Cranes & Components Ltda.
Deptº Tempos & Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Moked - Tamara (Brazil)
Enviada em: terça-feira, 2 de maio de 2006 14:35
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Codificação do Botão "Sair"

Onde esta dando erro? na pergunta? ou compila certinho e o problema esta em realemente estar em edit?

Eu ñ entendi direito o problema, embora pareça ser simples. Fale qual o erro, qual a situação, dai quem sabe posso ajudar...

Obrigada,

Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
www.moked.com.br <http://www.moked.com.br/>


________________________________

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de hebervan
Enviada em: terça-feira, 2 de maio de 2006 14:17
Para: delphi-br@yahoogrupos.com.br
Assunto: [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 >>>>>

<*> 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:
PUBLICIDADE


Links do Yahoo! Grupos

Responder a