FindObjByClass()
FindObjByClass() – Objekt nach Klassenname suchen
Die Funktion gibt, ähnlich wie FindObject(), ein gesuchtes Objekt bzw. Control zurück.
Jedoch wird das Objekt über den angegebenen (u.U. nicht-eindeutigen) Klassen-Namen im Owner-Objekt identifiziert.
Diese Funktion ist im Besonderen dafür gedacht, um gedockte Fenster zu finden, da bei diesen Objekten der Objekt-Name u.U. dynamisch vergeben wird, während der Klassen-Name konstant bleibt.
Parameter | Beschreibung |
---|---|
aObject:O | Owner-Objekt |
aClassName:C | Klassen-Name des gesuchten Objektes |
Rückgabewert
Objekt - Gesuchtes Objekt
Beispiel
| oForm, oBtnC, oEdit, oObj |
function DoOnBtnCClick(sender)
oObj := FindObjByClass(oForm, 'TButton'),
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),