CANNOT FOCUS IN DISABLE OU INVISIBLE WINDOWS

Delphi

15/02/2003

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:547e6ce00b][b:547e6ce00b]TbAgencia.Post; //O ERRO DÁ NA HORA DE SALVAR[/b:547e6ce00b][/color:547e6ce00b]
TbAgencia.Append;
wwDBLookupCombo1.setfocus;
end
else
begin
TbAgencia.Cancel;
Self.Close
end
end;
end;
end;

end;


Lcquinhone

Lcquinhone

Curtidas 0

Respostas

Anonymous

Anonymous

15/02/2003

Isso normalmente acontece quando vc tenta executar o camando setfocus em um compomente que esteja com enabled = false ou que não esteje visivel na tela, por exemplo o campo estar em uma TbaSheet que não esteja seleciona, para resolver isso vc tem que selecionar a TabSheet em tempo de execução, e no caso do Enable tem que estar true;




Leandro
128124370[/img]


GOSTEI 0
POSTAR