[resolvido] Verificar Digitação Na Saída De Um Edit

[Guest --José Luiz --]

Em um Form, tenho alguns Edits e os botões Confirma e Cancela (que fecha o Form) .

No primeiro Edit, faço uma verificação no OnExit, que não permite que o registro fique em branco, ou seja:

if Edit1.Text = '' then Edit1.SetFocus ;

No caso do Form ser aberto e eu não desejar digitar nada, só consigo fechá-lo através do fechamento da janela, e não clicando no botão Cancelar, pois antes de fechar o Form, o programa faz a verificação de saída do Edit que está vazio.

Como faço para que o programa não execute a verificação do OnExit ao clicar no botão Cancela ?

[Guest --Jonas --]

Voce pode jogar a verificação no botão confirma ao invés de ser no proprio edit.

[Micheus]

Como faço para que o programa não execute a verificação do OnExit ao clicar no botão Cancela ?

É bem simples José Luiz, sempre que precisar não executar uma validação ao clicar num botão com a função cancelar, você testa se o controle ativo não é ele. Veja o exemplo:

procedure TForm1,Edit1Exit(Sender :TObject);
begin
  if ActiveControl = btnCancelar then  // supus que seu botão Cancel chame-se btnCancelar
    Exit;

  if Edit1.Text = '' then Edit1.SetFocus;
end.

Abraços

[Guest --José Luiz --]

Obrigado Micheus.

Mais uma vez uma dúvida minha colocada no Forum, foi resolvida.