Skip to main content
Skip table of contents

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


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.