Controls()
Controls() – Zugriff auf die Unter-Controls eines Controls
Ermöglicht es die einzelnen Unter-Controls auf einem Control über den angegebenen Index zu ermitteln.
Wichtig:
Diese Funktion bezieht sich auf die Parent-Struktur.
Parameter | Beschreibung |
---|---|
oControl:O | Das Control dessen Unter-Controls ermittelt werden soll |
aIndex:N | Index des Unter-Controls die man als Result bekommt |
Rückgabewert
Objekt (TWinControl)
Beispiel
CODE
| oForm, oPanel1, oPanel2, oPanel3 |
function ShowControlTree(oMainControl, nDepth)
| i, oControl |
for i := 0 to ControlCount(oMainControl) - 1 do
oControl := Controls(oMainControl, i),
writeln(StringOfChar('-', nDepth) + ClassName(oControl) + '(' + oControl.name + ')'),
ShowControlTree(oControl, nDepth + 3),
next,
end,
oForm := CreateObject('TFormEx'),
startseq
oPanel1 := CreateObject('TPanel', 'pan1', oForm, oForm),
oPanel2 := CreateObject('TPanel', 'pan2', oPanel1, oPanel1),
oPanel3 := CreateObject('TPanel', 'pan3', oPanel2, oPanel2),
ShowControlTree(oForm, 0),
always
DestroyObject(oForm),
stopseq,