FindNextControl()

FindNextControl() – Nächstes Control finden

Die Funktion ermittlet das in der Tabulatorreihenfolge nach AktControl nachfolgende Control. Wenn AktControl kein untergeordnetes Objekt von Form ist, gibt FindNextControl das erste untergeordnete Control in der Tabulatorreihenfolge zurück.

Parameter	Beschreibung
Form:O	Formular
AktControl:O	Aktives Control
SeekForward:L	Vorwärtssuchen
CheckTabStop:L	Das nächste Control muss CheckTabStop = true haben
CheckParent:L	Das nächste Control muss als Parent Form haben

Rückgabewert

Objekt - Nächstes Control

Beispiel

CODE

| oForm, oBtnC, oEdit, oObj |

function DoOnBtnCClick(sender)
   oObj := FindNextControl(oForm, oBtnC, false, false, false),
   Meld(oObj.name),
end,

oForm             := CreateObject('TForm'),
oForm.BorderStyle := bsSingle,
oForm.Width       := 200,
oForm.Height      := 400,
oForm.Caption     := 'CreateObject-Test',
oForm.Position    := poScreenCenter,

oBtnC         := CreateObject('TButton', 'BtnC', oForm, oForm),
oBtnC.Width   := 150,
oBtnC.Height  := 20,

oBtnC.Top     := 20,
oBtnC.Left    := 20,

oEdit      := CreateObject('TBeEdit', 'Edit', oForm, oForm),
oEdit.Top  := 100,
oEdit.Left := 20,
oEdit.Text := 'Hello World',

AssignEvent(oBtnC, 'OnClick', 'DoOnBtnCClick'),
ShowModal(oForm),