Como cancelar a passagem do foco para outro componente?

Question

Bom dia amigos, fiz fun��es para validar CNPJ e CPF, em que o usu�rio digita, pressiona enter e a fun��o elimina os caracteres e devolve o Doc formatado e validado. Como fa�o para que l� na fun��o, ao verificar o documento errado ele cancele a passagem para o pr�ximo componente.

Uma boa semana a todos

Mario

Massuda · Answer

N�o testei, mas pelo que me lembro voc� pode chamar a procedure Abort da unit SysUtils no caso da sua valida��o falhar; isso impedir� a mudan�a do foco de entrada....

Aldus · Answer

Usei assim e nada aconteceu:[code:1:b4b6fc8e0e]   if NumeroInvalido then      begin         MessageDlg(NomeRep+� inv�lido!�, mtConfirmation,&#91;mbOk&93;,0);         Result:=Numero;         Abort;      end;[/code:1:b4b6fc8e0e]O que mais posso tentar?Mario...

Marco Salles · Answer

Nesta mesma rotina , ao verificar que o documento esta errado , porque que voce n�o devolve ao component em quest�o o Foco

Por exemplo:

   if NumeroInvalido then 
      begin 
         MessageDlg(NomeRep+� inv�lido!�, mtConfirmation,[mbOk],0); 
         Result:=Numero; 
         FNomeFormulario.NomeComponente.SetFocus;
      end;

Isto n�o funciona :?: :?: :?:

Aldus · Answer

Ol� Marco.  A fun��o de valida��o est� em uma unit gen�rica que utilizarei em todo o sistema, n�o s� no form em quest�o....

Marco Salles · Answer

[quote:1714736641]A fun��o de valida��o est� em uma unit gen�rica que utilizarei em todo o sistema, n�o s� no form em quest�o.[/quote:1714736641]N�o tem problema , Acrescente mais um parametro a esta fun��ona hora de chamar[code:1:1714736641]NomeFun��o(NomeDoEdit,Outros paramentros )[/code:1:1714736641]e na fun��o[code:1:1714736641]function NomeDaFun��o(Editor : TEdit ; Outros paramentros):Retornobeginbla bla...  if NumeroInvalido then       begin          MessageDlg(NomeRep+� inv�lido!�, mtConfirmation,&#91;mbOk&93;,0);          Result:=Numero;          Editor.SetFocus;       end;bal bla...end[/code:1:1714736641]...

Aldus · Answer

Marcos, para evitar a passagem de outro par�metro, tem como descobrir o nome do componente com foco e passar um setfocus.

Pesquisei algo sobre, mas as dicas que encontrei s�o com o uso de ActiveControl, mas me d� erro que n�o foi declarado. Ser� que � porque n�o estou nos eventos �onkey�.

Marco Salles · Answer

[quote:937cf55573]tem como descobrir o nome do componente com foco e passar um setfocus. [/quote:937cf55573][b:937cf55573] Jeito Tem[/b:937cf55573] , mas o problema � que este m�todo que voce esta executando � nun evento OnExit , e o Foco ja foi para o OutroCOmponente .. Para contornar este problema sera necess�rio , muito mais digita��o , do que acrescentar um novo parametro na sua fun��o.[quote:937cf55573]Pesquisei algo sobre, mas as dicas que encontrei s�o com o uso de ActiveControl, [/quote:937cf55573][quote:937cf55573]mas me d� erro que n�o foi declarado. Ser� que � porque n�o estou nos eventos �onkey�.[/quote:937cf55573]N�o tem nada a ver ......

Aldus · Answer

Ol� Marco, seguindo novamente instru��o, procurei por algo que voltasse ao componente anterior e resolvi com o seguinte c�digo:

   if NumeroInvalido then
      begin
         wRequest(NomeRep+� inv�lido!�,1);
         Result:=Numero;
         Screen.ActiveForm.Perform(WM_NEXTDLGCTL,1,0);
      end;

Obrigado pela ajuda

At�

Kotho · Answer

N�o se esque�a que, com o mouse, eu posso passar de um controle para outro do formul�rio, sem que esteja em alguma ordem... Vai disparar o OnExit, mas n�o ir� retornar para o controle certo...

Acho que a melhor saida seria passar o controle como parm�metro mesmo...

Marco Salles · Answer

[quote:7df2b67163]Screen.ActiveForm.Perform(WM_NEXTDLGCTL,1,0); [/quote:7df2b67163] :arrow:  :arrow: eu n�o sabia que isto retornava ao Ultimo controle[quote:7df2b67163]N�o se esque�a que, com o mouse, eu posso passar de um controle para outro do formul�rio, sem que esteja em alguma ordem... Vai disparar o OnExit, mas n�o ir� retornar para o controle certo...Acho que a melhor saida seria passar o controle como parm�metro mesmo... [/quote:7df2b67163]Afinal esta instru��o retorna ou n�o para o ultimo controle :?:  :?:  :?:...

Aldus · Answer

Realmente, coloquei o nome do objeto como par�metro e agora est� OK.At�...

F�rum Como cancelar a passagem do foco para outro componente? #282640