Erro delphi cannot focus

10/01/2019

7

No form principal tenho o botão sair

procedure TPRINCIPAL.Sair1Click(Sender: TObject);
begin
Close;
end;


e esta dano erro: cannot focus a disabled or invisible window

detalhe no onShow não tem nada
Responder

Posts

10/01/2019

Luiz Vichiatto

Olá Mayco,
Já verificou se o seu formulário foi criado adequadamente?
Verifique se está sendo criado automaticamente, se há algum evento que cria o formulário e tal.
Outra situação é crie um novo formulário e faça o mesmo testes.

Espero ter ajudado.
Responder
Este erro acontece quando você tenta focar algo invisível ou desabilitado.

O correto é antes de usar o SetFocus para focar um componente, verifique se ele pode receber o foco com a propriedade CanFocus.

Exemplo:

If Edit1.Canfocus then
  Edit1.SetFocus;


Aconselho a colocar um Breakpoint (F5) na linha do Close e ir debugando com F8 ou F7.
Responder