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,

Weitere Verknüpfungen

ControlCount()