[delphi-br] Re: Codificação do Botão "Sair"

Apesar de ter uma maneira melhor, tente assim: Declare a clausula "db". > procedure TfCadSupSetor.BitBtnSairClick(Sender: TObject); > begin >    If TbSupSetor in [dsEdit] Then >   ShowMessage('Cancele a operação antes de fechar o programa.') >    else >   close >    end > end; >

[delphi-br] Re: Codificação do Botão "Sair"

Cara, pelo o que eu entendi da sua dúvida,  vc pode tentar o seguinte:      procedure TfCadSupSetor.BitBtnSairClick(Sender: TObject); begin   If TbSupSetor.Active And (TbSupSetor.State in [ dsInsert, dsEdit ]) Then   ShowMessage('Cancele a operação antes de fechar o programa.')   else