Focus object
Focus object : Pointer
| Parâmetro | Tipo | Descrição | |
|---|---|---|---|
| Resultado | Pointer | ← | Ponteiro ao objeto que tem o foco |
Esse comando não é seguro para thread e não pode ser usado em código adequado.
Nota de compatibilidade
Este comando só é conservado por razões de compatibilidade. Começa com a versão 12 de 4D, recomenda-se que se use o comando OBJECT Get pointer.
Descrição
Focus object retorna um ponteiro ao objeto que tem o foco no formulário atual. Se nenhum objeto tiver o foco, o comando retorna Is nil pointer.. Pode utilizar Focus object para realizar uma ação em um área de formulário sem saber qual objeto está selecionado atualmente. Tenha certeza de testar se o objeto é do tipo correto, utilizando Type,, antes de realizar uma ação.
Nota: quando se utiliza com um list box de tipo array, a função Focus object retorna um ponteiro ao list box ou à coluna do list box dependendo do contexto. Para mais informação, veja a seção Gestão de objetos List Box
Este comando não pode ser utilizado com campos em sub-formulários.
Nota: este comando é utilizado apenas no contexto de entrada de dados, do contrário um erro é produzido
Exemplo
O exemplo abaixo é um método de objeto para um botão. O método de objeto modifica os dados no objeto atual a maiúsculas. O objeto deve ser do tipo texto ou alfa (tipo 0 ou 24):
$vp :=Focus object //Obter o ponteiro ao último objeto
Case of
:(Nil($vp)) //Nenhum objeto tem o foco
...
:((Type($vp->)=Is alpha field)|(Type($vp->)=Is string var)) //Se for um objeto de tipo texto ou alfa
$vp->:=Uppercase($vp->) //Mudar os dados a maiúsculas
End case