4D v14.3
Focus object
- 4D Programmiersprache
-
- Benutzeroberfläche
-
- 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 -> 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 Contextual click.
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 v12.4)
4D Programmiersprache ( 4D v14 R2)
4D Programmiersprache ( 4D v14 R3)
4D Programmiersprache ( 4D v13.5)
4D Programmiersprache ( 4D v14.3)
4D Programmiersprache ( 4D v14 R4)
Geerbt von : Focus object ( 4D v11 SQL Release 6)
