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
| 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),
Weitere Verknüpfungen