4D v16.3
Focus object
- 4D Programmiersprache
-
- Benutzeroberfläche
-
- 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 -> Funktionsergebnis | ||||||||
| Parameter | Typ | Beschreibung | ||||||
| Funktionsergebnis | Zeiger |
|
Zeiger auf das Objekt mit Fokus | |||||
Dieser Befehl wird zur Wahrung der Kompatibilität beibehalten. Ab 4D Version 12 empfehlen wir, den Befehl OBJECT Get pointer zu verwenden.
Die Funktion Focus object gibt einen Zeiger auf das Objekt mit Fokus im aktuellen Formular zurück. Hat kein Objekt Fokus, gibt der Befehl Nil zurück. Mit Focus object können Sie eine Aktion in einem Formularbereich ausführen, ohne zu wissen, welches Objekt aktuell ausgewählt ist. Vor Ausführen einer Aktion sollten Sie jedoch mit Type prüfen, ob das Objekt den korrekten Datentyp hat.
Hinweis: Bei Verwendung mit einer Listbox gibt die Funktion Focus object je nach Kontext einen Zeiger auf die Listbox oder die Spalte der Listbox mit Fokus zurück. Weitere Informationen dazu finden Sie im Abschnitt Einführung in Listboxen.
Diese Funktion lässt sich nicht in Feldern von Unterformularen benutzen.
Hinweis: Die Funktion ist nur bei der Dateneingabe sinnvoll, sonst wird ein Fehler zurückgegeben.
Folgendes Beispiel ist eine Objektmethode für eine Schaltfläche. Sie ändert die Daten im aktuellen Objekt um in Großbuchstaben. Das Objekt muss vom Typ String oder Text sein (Typ 0 oder 24):
$vp :=Focus object ` Sichere Zeiger auf den letzten Bereich
Case of
:(Nil($pointer)) ` Kein Objekt hat den Fokus
...
:((Type($vp->)=Is alpha field)|(Type($vp->)=Is string var))
` Ist es ein String oder Textbereich
$vp->:=Uppercase($vp->) ` Ändere Bereich um in Großbuchstaben
End case
Produkt: 4D
Thema: Benutzeroberfläche
Nummer:
278
Geändert: 4D v11 SQL
4D Programmiersprache ( 4D v16)
4D Programmiersprache ( 4D v16.1)
4D Programmiersprache ( 4D v16.2)
4D Programmiersprache ( 4D v16.3)
