4D v14.3
Focus object
- 4D Language Reference
-
- User Interface
-
- 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 -> Function result | ||||||||
| Parameter | Type | Description | ||||||
| Function result | Pointer |
|
Pointer to the object having the focus | |||||
This command is kept only for compatibility reasons. Starting with version 12 of 4D, it is recommended to use the OBJECT Get pointer command.
Focus object returns a pointer to the object having the focus in the current form. If no object has the focus, the command returns Nil. You can use Focus object to perform an action on a form area without having to know which object is currently selected. Be sure to test that the object is the correct data type, using Type, before performing an action on it.
Note: When it is used with a list box, the Focus object function returns a pointer to the list box or the column of the list box depending on the context. For more information, please refer to the Contextual click section.
This command cannot be used with fields in subforms.
Note: This command is to be used only in data entry context, otherwise it will return errors.
The following example is an object method for a button. The object method changes the data in the current object to uppercase. The object must be a text or string data type (type 0 or 24):
$vp :=Focus object ` Save the pointer to the last area
Case of
:(Nil($pointer)) ` No object has the focus
...
:((Type($vp->)=Is alpha field)|(Type($vp->)=Is string var)) ` If it is a string or text area
$vp->:=Uppercase($vp->) ` Change the area to uppercase
End case
Product: 4D
Theme: User Interface
Number:
278
Modified: 4D v11 SQL
4D Language Reference ( 4D v12.4)
4D Language Reference ( 4D v14 R2)
4D Language Reference ( 4D v14 R3)
4D Language Reference ( 4D v13.5)
4D Language Reference ( 4D v14.3)
4D Language Reference ( 4D v14 R4)
Inherited from : Focus object ( 4D v11 SQL Release 6)
