4D v14.3
Focus object
- Manual de linguagem 4D
-
- Interface de Usuário
-
- BEEP
- Caps lock down
- Focus object
- GET FIELD TITLES
- GET MOUSE
- GET TABLE TITLES
- HIDE MENU BAR
- INVERT BACKGROUND
- Macintosh command down
- Macintosh control down
- Macintosh option down
- OBJECT Get name
- OBJECT Get pointer
- PLAY
- Pop up menu
- POST CLICK
- POST EVENT
- POST KEY
- REDRAW
- SET ABOUT
- SET CURSOR
- SET FIELD TITLES
- SET TABLE TITLES
- Shift down
- SHOW MENU BAR
- Tool bar height
- Windows Alt down
- Windows Ctrl down
- Get platform interface
- HIDE TOOL BAR
- SET PLATFORM INTERFACE
- SHOW TOOL BAR
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 Nil.. 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 Contextual click
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($ponteiro)) ` 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 v12.4)
Manual de linguagem 4D ( 4D v14 R2)
Manual de linguagem 4D ( 4D v14 R3)
Manual de linguagem 4D ( 4D v13.5)
Manual de linguagem 4D ( 4D v14.3)
Manual de linguagem 4D ( 4D v14 R4)
Inherited from : Focus object ( 4D v11 SQL Release 6)
