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'