Este é o site histórico da documentação 4D. As documentações estão sendo movidas progressivamente para developer.4d.com |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v19.8
Focus object
|
Focus object -> Resultado | ||||||||
Parâmetro | Tipo | Descrição | ||||||
Resultado | Ponteiro |
![]() |
Ponteiro ao objeto que tem o foco | |||||
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.
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
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
Produto: 4D
Tema: Interface de Usuário
Número
278
Modificado: 4D v11 SQL
Manual de linguagem 4D ( 4D v19)
Manual de linguagem 4D ( 4D v19.1)
Manual de linguagem 4D ( 4D v19.4)
Manual de linguagem 4D ( 4D v19.5)
Manual de linguagem 4D ( 4D v19.6)
Manual de linguagem 4D ( 4D v19.7)
Manual de linguagem 4D ( 4D v19.8)