Fórum Cannot focus a disabled or invisible windows #345705

Alguém pode me dizer por que está dando esse erro... ´CANNOT FOCUS IN DISABLE OU INVISIBLE WINDOWS´ ´Não pode focalizar uma janela invisível ou desabilitada´ procedure TFormCadAgencia.BtnSalvarClick(Sender: TObject); begin if DBEdit1.text = ´´ then begin Application.MessageBox(´O Campo ´Agência´ não pode estar em branco.´,´Informação´, mb_ok + mb_IconInformation); DBEdit1.SetFocus; end else begin if DBEdit2.text = ´´ then begin Application.MessageBox(´O Campo ´Nome da Agência´ não pode estar em branco.´,´Informação´, mb_ok + mb_IconInformation); DBEdit2.SetFocus; end Else Begin if (DBEdit1.text <> ´´ ) and (DBEdit2.text <> ´´) then begin if application.MessageBox(´Confirma a Inclusão desta Agência?´,´Confirmação´, mb_yesNo + MB_IconQuestion) = idYes then begin [color=darkred:27ef2e5245][b:27ef2e5245]TbAgencia.Post; //O ERRO DÁ NA HORA DE SALVAR[/b:27ef2e5245][/color:27ef2e5245] TbAgencia.Append; wwDBLookupCombo1.setfocus; end else begin TbAgencia.Cancel; Self.Close end end; end; end; end;

[quote:8c9f2946d7=´lcquinhone´]Alguém pode me dizer por que está dando esse erro... ´CANNOT FOCUS IN DISABLE OU INVISIBLE WINDOWS´ ´Não pode focalizar uma janela invisível ou desabilitada´ procedure TFormCadAgencia.BtnSalvarClick(Sender: TObject); begin if DBEdit1.text = ´´ then begin Application.MessageBox(´O Campo ´Agência´ não pode estar em branco.´,´Informação´, mb_ok + mb_IconInformation); DBEdit1.SetFocus; end else begin if DBEdit2.text = ´´ then begin Application.MessageBox(´O Campo ´Nome da Agência´ não pode estar em branco.´,´Informação´, mb_ok + mb_IconInformation); DBEdit2.SetFocus; end Else Begin if (DBEdit1.text <> ´´ ) and (DBEdit2.text <> ´´) then begin if application.MessageBox(´Confirma a Inclusão desta Agência?´,´Confirmação´, mb_yesNo + MB_IconQuestion) = idYes then begin [color=darkred:8c9f2946d7][b:8c9f2946d7]TbAgencia.Post; //O ERRO DÁ NA HORA DE SALVAR[/b:8c9f2946d7][/color:8c9f2946d7] TbAgencia.Append; wwDBLookupCombo1.setfocus; end else begin TbAgencia.Cancel; Self.Close end end; end; end; end;

wwDBLookupCombo1.setfocus;