4D v16.3
Focus object
- 4D - Langage
-
- Interface utilisateur
-
- BEEP
- Caps lock down
- Focus object
- GET FIELD TITLES
- GET MOUSE
- GET TABLE TITLES
- HIDE MENU BAR
- Macintosh command down
- Macintosh control down
- Macintosh option down
- 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
- Windows Alt down
- Windows Ctrl down
- _o_Get platform interface
- _o_INVERT BACKGROUND
- _o_SET PLATFORM INTERFACE
Focus object
| Focus object -> Résultat | ||||||||
| Paramètre | Type | Description | ||||||
| Résultat | Pointeur |
|
Pointeur vers l’objet ayant le focus | |||||
Cette commande est conservée pour des raisons de compatibilité uniquement. A compter de la version 12 de 4D, il est conseillé d'utiliser la commande OBJECT Get pointer.
Focus object retourne un pointeur vers l’objet ayant le focus dans le formulaire courant. Si aucun objet n’a le focus, la commande retourne Nil. Vous pouvez utiliser Focus object pour effectuer une action dans un formulaire sans savoir quel objet est actuellement sélectionné. N'oubliez pas auparavant de tester si l'objet est du type voulu, à l'aide de la fonction Type.
Note : Lorsqu’elle est utilisée avec une list box, la fonction Focus object retourne un pointeur vers la list box ou la colonne de la list box en fonction du contexte. Pour plus d'informations, reportez-vous à la section Gestion programmée des objets de type List box.
Cette commande ne peut pas être utilisée sur les champs dans les sous-formulaires.
Note : Cette commande n'a de sens qu'en cours de saisie. Son utilisation hors de ce contexte génère des messages d'erreur.
L'exemple suivant est une méthode objet pour un bouton. Cette méthode passe les données de l'objet courant en majuscules. L'objet doit être de type Texte ou Alpha (type 0 ou 24) :
$pointeur :=Focus object ` Obtenir le pointeur vers le dernier objet
Case of
:(Nil($pointeur)) ` Aucun objet n'a le focus
...
:((Type($pointeur->)=Is alpha field)|(Type($pointeur->)=Is string var))
` S'il s'agit d'un objet de type Texte ou Alpha
$pointeur->:=Uppercase($pointeur->) ` Mettre les données en majuscules
End case
Produit : 4D
Thème : Interface utilisateur
Numéro :
278
Modifié : 4D v11 SQL
4D - Langage ( 4D v16)
4D - Langage ( 4D v16.1)
4D - Langage ( 4D v16.2)
4D - Langage ( 4D v16.3)
