Setfocus
Olá!
Estou digitando informações em um determinado campo de ssa maneira.
if dbprocesso.text > ´´ then
begin
if not dm.tabfat.locate(´processo´,dbprocesso.text,[]) then
begin
if application.messagebox(´Processo com esse número não existe deseja cadastrar? ´,´AVISO!´,mb_yesno+mb_iconquestion+mb_defbutton2) = idno then
dm.tabmovprocesso.clear;
end;
end;
Resumindo. Quando ele passar por essa condição quero que éle dê o foco para o campo seguinte e isso não esta acontecendo. Ou seja, mesmo forçando o setfocus ele não vai tenho que clicar no campo.
Ricardo
Estou digitando informações em um determinado campo de ssa maneira.
if dbprocesso.text > ´´ then
begin
if not dm.tabfat.locate(´processo´,dbprocesso.text,[]) then
begin
if application.messagebox(´Processo com esse número não existe deseja cadastrar? ´,´AVISO!´,mb_yesno+mb_iconquestion+mb_defbutton2) = idno then
dm.tabmovprocesso.clear;
end;
end;
Resumindo. Quando ele passar por essa condição quero que éle dê o foco para o campo seguinte e isso não esta acontecendo. Ou seja, mesmo forçando o setfocus ele não vai tenho que clicar no campo.
Ricardo
Ricardo_ascii
Curtidas 0
Respostas
Renato_sp
16/12/2004
Aonde vc ta mandando o foco no codigo ai nao vi.
Tenta colocar depois do clear.
dm.tabmovprocesso.clear;
componente.SetFocus;
ou entao
Perform(Wm_NextDlgCtl,0,0); que mandara o foco para o proximo componente determinado com o tabOrder
Espero ter ajudado
Renato / SP
Tenta colocar depois do clear.
dm.tabmovprocesso.clear;
componente.SetFocus;
ou entao
Perform(Wm_NextDlgCtl,0,0); que mandara o foco para o proximo componente determinado com o tabOrder
Espero ter ajudado
Renato / SP
GOSTEI 0