Components()

Components() – Zugriff auf die Unter-Komponenten einer Komponente

Ermöglicht es die einzelnen Unter-Komponenten auf einer Komponente über den angegebenen Index zu ermitteln.

Wichtig:

Diese Funktion bezieht sich auf die Owner-Struktur.

Parameter	Beschreibung
aComponent:O	Die Komponente dessen Unter-Komponente ermittelt werden soll
aIndex:N	Index der Unter-Komponente die man als Result bekommt

Rückgabewert

Objekt (TComponent)

Beispiel

CODE

| oForm, oPanel1, oPanel2, oPanel3 |

function ShowComponentTree(oMainComponent, nDepth)
| i, oComponent |
   for i := 0 to Componentcount(oMainComponent) - 1 do
      oComponent := Components(oMainComponent, i),
      writeln(StringOfChar('-', nDepth) + ClassName(oComponent) + '(' + oComponent.name + ')'),

      ShowComponentTree(oComponent, 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),

   ShowComponentTree(oForm, 0),
always
   DestroyObject(oForm),
stopseq,

Weitere Verknüpfungen

ComponentCount()