SetParent()
SetParent() – Parent setzen
Die Funktion setzt für das Control-Objekt ein neues Partent-Objekt.
Parameter | Beschreibung |
|---|---|
aControl:O | Control-Objekt |
aNewParent:O | neues Parent-Objekt |
Rückgabewert
keiner
Beispiel
CODE
| oParent, oForm, oPanel, oPanel2, oLabel |
oForm := CreateObject('TForm'),
oPanel := CreateObject('TBePanel', 'Panel', oForm),
oPanel2 := CreateObject('TBePanel', 'Panel2', oForm),
oLabel := CreateObject('TLabel', 'Label', oForm, oPanel),
oParent := GetParent(oLabel),
WriteLn(oParent.name),
SetParent(oLabel, oPanel2),
oParent := GetParent(oLabel),
WriteLn(oParent.name),
DestroyObject(oForm),