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
| 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),