Substituindo o SetFocus

Question

Fala Galera,Gostaria de uma informa��o, Teria algum codigo que fa�a o mesmo procedimento do Setfocus ??Fico no aguardo...

Paulo · Answer

Eu fa�o uma uma Fun��o mas dentro dela vai o setfocus:

Function Foco(Obj: TWincontrol):boolean;
begin
  Result := Obj.Canfocus;
  if result then Obj.SetFocus;
end;

Para usar, passe o controle apenas assim:
Foco(Edit1);
Foco(DBGrid1);
Foco(btnGravar);
E assim vai.

Cleiflavio · Answer

eu estou tendo um probelma com o Setfocus n�o sei oq est� acontecendo mas sempre quando uso o setfocus o meu formulario de cadastro est� pulando uma linha no BD e se eu tiro o setfocus ele n�o pula linha ele vai add um embaixo do outro.

Ser� que teria algo que limpasse a memoria, tipo antes de chamar o setfocus ele limpa depois chama.

????????

Paullsoftware · Answer

Ta meio vago esse seu problema, o que exatamente ta ocorrendo e qual o c�digo que est� sendo executado?...

Martins · Answer

vc j� olhou todos os eventos dos componentes deste form, j� verifiou se n�o tem algo no OnEnter de um dos componentes q est� causando isso?Boa sorte e bons c�digos....

Webjoel · Answer

Olha amigo,Tavez este seu problema nem seja com o setfocus, mas de qualquer maneira realmente as vezes o setfocus pode causar alguns problemas, eu mesmo parei de us�-lo, atualmente uso o seguinte c�digo:[code:1:4cac19cd0e]ActiveControl := DBEdit1;[/code:1:4cac19cd0e]No caso voc� pode setar o foco para qualquer componente do form, bastanto apenas passar o nome do mesmo.Boas Compila��es brod!...

Cleiflavio · Answer

Galera n�o sei oq acontece n�o, eu usei o ActiveControl e deu o mesmo erro do SetFocus[C:Documents and Settingsbr1marclDesktoperro_delphi.JPG]...

Paulo · Answer

O Martins perguntou se h� algum c�digo no OnEnter do componente. caso haja, de uma verificada nele(c�digo).

meu formulario de cadastro est� pulando uma linha no BD e se eu tiro o setfocus ele n�o pula linha ele vai add um embaixo do outro.

N�o entendi a linha acima. Para isso acontecer � necess�riio ver algum c�digo antes, tipo OnEnter, BeforePost de algum componente Dataware. Para isso seria necess�rio postar os c�digos. � melhor para resolver. Mas ainda acho que tem algo no OnEnter desse componente. O evento OnEnter � disparado quando o objeto recebe o foco.

Cleiflavio · Answer

Deixa eu fazer para vcs entederem.Eu tenho 4 form de cadastro1  cadastra um tipo X de CX 2 cadastra um tipo Y de cx3 cadastra um tipo B de cxquando entro no cadastro de vc X  e fa�o alguns inser��es ele cai no meu banco certinho uma linha embaixo da outra, ai vou para o outro formo caastro cx Y e vou fazendo as inser��es , quando eu olho no banco ta cadastrado as inser��es da cx X e quando vai passar para inser��o da cx Y ele ta pulando uma linha .O Estranho � que quando eu tiro o Setfocus ou o ActiveControl e vou fazer as inser�oes no meu BD vai certinho n�oo pula nenhuma linha cai conforme eu quero, mas eu presciso  que quando eu fa�o a inser��o aponte novamente para o meu primeiro edit.segu o codigo que estou usando na inser��oprocedure TF_limpeza.BitBtn1Click(Sender: TObject);beginDM.CDS_GERAL.post;DM.CDS_GERAL.ApplyUpdates(1);DM.CDS_GERAL.Insert;//ActiveControl := N_caixa; //N_caixa.setfocus;end;Espero que tenha esclarecido meu problema...

Cleiflavio · Answer

Galera esqueci de falar uma coisa, em todos os meus form de cadastro no OnActive eu coloco assim:

procedure TF_consignado.FormActivate(Sender: TObject);
begin
DM.CDS_GERAL.open;
DM.CDS_GERAL.Insert;
end;

Uso isso para que quando abrir o form ele deixar todos meus edit em branco para digitar.

n�o sei se tem alguma coisa a ver.

Paullsoftware · Answer

[quote:160809ca68=�cleiflavio�]Galera esqueci de falar uma coisa, em todos os meus form de cadastro no OnActive eu coloco assim:procedure TF_consignado.FormActivate(Sender: TObject);beginDM.CDS_GERAL.open;DM.CDS_GERAL.Insert;end;Uso isso para que quando abrir o form ele deixar todos meus edit em branco para digitar.n�o sei se tem alguma coisa a ver.[/quote:160809ca68] voc� j� pensou na hip�tese de vc mesmo clicar fora do form depois clicar no form e ativar esse seu comando por mais de uma vez, gerando assim essa linha em branco?fa�a um teste. coloque os campos da tabela como �Requeridos� da� quando for salvar o registro vazio ele vai apresentar erro...outra coisa, n�o use esse c�digo no onActive coloque um bot�o para controlar......

Cleiflavio · Answer

Valeuuu, deu certo manipulei o insert com um bot�o e resolveu meu problema.Obrigado...

F�rum Substituindo o SetFocus #366748