CreateGet()
CreateGet() – GetList erstellen
CreateGet() erzeugt eine GetList. Diese GetList kann über Aufrufe der Funktion Get() näher definiert werden. Mit dem Aufruf von ReadGets() wird die GetList als DialogFenster eingeblendet. Jeder Aufruf von Get() entspricht einer Eingabe-Maske im Dialogfeld. Die Eingaben des Benutzers in diesen Feldern werden in den jeweiligen Parametern gespeichert.
Parameter | Beschreibung |
---|---|
aCaption:C | Fensterüberschrift; default = Leerstring |
aLeft:N | X-Koordinate des Fensters; default = 0 |
aTop:N | Y-Koordinate des Fensters; default = 0 |
aWidth:N | Breite des Fensters; default = Screen.Width |
aHeight:N | Höhe des Fensters; default = Screen.Height |
aColor:N | Hintergrundfarbe des Fensters; default = clBtnFace |
Rückgabewert
Objekt - GetList
Beispiel
| oGetList, oDab005:DB := 'waDAB005', cName:C := 'Name', dDatum:D := date |
oGetList := CreateGet('Get-Fenster', 10, 10, 300, 250),
Get(oGetList, cName, 10, 40, 150, 20, 'Name'),
Get(oGetList, dDatum, 10, 90, 150, 20, 'Datum'),
if ReadGets(oGetList) then
Meld('Name: ' + cName + crlf + 'Datum: ' + DToC(dDatum)),
endif,