Steuerungsobjekt auf Standardmasken
Dieser Codeschnipsel bietet die Basis zur dynamischen Steuerung der Objekte auf Standardmasken.
Der Code kommt in ein TBeCalcEdit
in den BlockStr.
JS
//******************************************************************************
// Steuerungsobjekt fĂĽr dynamische Control-Steuerung
//******************************************************************************
| oSteuerungsObjekt, bDesignMode, cMaskID |
bDesignMode := Upper(ClassName(GetOwner(Self))) = 'TBEMASKDESIGNER',
cMaskID := Right(Self.Name, 10),
Self.visible := bDesignMode, // Steuerungsobjekt selber in Maske unsichtbar machen bzw. im Maskenlayout sichtbar machen
// Objekte identifizieren / deklarieren
oObjekt := FindObject(GetOwner(self), "TBeCalcEdit" + cMaskID),
// ...
// ... hier werden die Masken-Objekte individuell gesteuert
// ...
'Steuerungsobjekt'