cancelar o evento OnExit de um edit ao pressionar um botao

Question

eu tenho um edit q faz uma valida��o de data o evento on exit, porem quando eu clicar em um bot�o (cancelar por exemplo) eu gostaria q ele n�o fizesse essa valida��o (n�o acionasse o evento exit do edit)
alguem sabe como fazer isso?
obrigado

E_gama · Accepted Answer

entao o codigo do evento onExit esta �embutido� no componente?Se tiver, acrescente as linhas que lhe passei anteriormente nesse codigo �embutido�...

Anonymous · Answer

primeira linha do evento on exitif botao_cancelar.focused then exit;...

E_gama · Answer

Faca o seguinte:configure a propriedade �TAG� com um valor diferente de ZERO em todos os compentes que irao �inibir� essa sua funcao (exemplo: botoes cancelar, OK, help, etc...)depois escreva o codigo do onExit:[code:1:307119e514] procedure TForm1.Edit1Exit(Sender: TObject);begin  if ActiveControl.Tag <> 0 then     Exit;end;[/code:1:307119e514]...

Arsnet · Answer

valeu a dica cara.. mas n�o funcionou...

E_gama · Answer

Qual nao funcionou? a do e_gama ou a do edson?...

Arsnet · Answer

infelizmente as duas...deixa eu esplicar denovo..eu tenho um componente edit especifico pra datas, e no evento exit do componente ele faz a valida��o... n�o sei � por isso q n�o funciona...

E_gama · Answer

e o TEdit padrao do Delphi, ou e um outro componente que vc instalou?...

Arsnet · Answer

foi um componente q eu mesmo criei baseado no TEdit, apenas acrescentei no componente essa valida��o de data e algumas coisinhas bobas......

Arsnet · Answer

ok... vou tentar fazer isso...

Anonymous · Answer

Estava c/ um problema assim e fiz o seguinte: No evento OnExit Coloquei o seguinte:
If (BtnCancelar.Focused = True) then exit
else
Begin
Application.MessageBox(�Mensagem�,�Data Inv�lida !�,MB_Ok);
DbeData.SetFocus;
end;

Comigo Resolveu...

Arsnet · Answer

blz pessoal... valeu a for�a... acho q funcionou...

Silvio Luciano · Answer

Funcionou corretamente no meu caso. Obrigado...

F�rum cancelar o evento OnExit de um edit ao pressionar um botao #145153