TBeCbFormExHelper

Diese Klasse stellt für ein TFormEx-Objekt erweiterte Funktionen im Codeblock zur Verfügung.

Zugriff erfolgt über TFormEx.CbHelper.

Eigenschaften

Eigenschaften
CbFormEx:O	Formular (TFormEx) auf welchem der CbHelper seine Funktionen ausführt

Aktive Eigenschaften (Events)
OnCbUserDefinedEvent	Event welcher ausgeführt wird wenn die Methode CbInvokeUserDefinedEvent() ausgeführt wird

Funktionen und Methoden	Beschreibung
CbInvokeUserDefinedEvent()	Löst den auf OnCbUserDefinedEvent zugewiesenen Event aus
	Parameter	Beschreibung
	Sender:O	Sender-Objekt welches den Event auslöst
	aKey:S	eindeutiger Key welcher das User-Event beschreibt
	aParams:U	beliebig definierbarer Parameter
CbManualDock():L	Formular wird an das angegebene Control angedockt
	Parameter	Beschreibung
	aDockSite:O	Control an welches angedockt werden soll
CbManualDockEx():L	entspricht CbManaulDock() mit erweiterten Möglichkeiten
	Parameter	Beschreibung
	aDockSite:O	Control an welches angedockt werden soll
	aDropControl:O	Control an welchem sich ausgerichtet werden soll
	aControlSide:O	an welche Seite von aDropControl angedockt werden soll
CbCreateDocking():O	Erzeugt einen Docking über einen Codeblock-Programm. Im Falle, dass dieser schon existiert, so wird dieser in die Vordergrund verschoben. Rückgabe: das erzeugte Docking. Die Rückgabe passiert erst NACH der Erzeugung des Formulars, also kann die Variable im TFormEx.OnInitDocking nicht benutzt werden!
	Parameter	Beschreibung
	aAction:O	Action, die CbCreateDocking aufruft
	aProgramName:C	Programm, der das Docking erzeugt
	aFormIdentifier:C	Formbezeichner, der an das Programm übergeben wird
	aMasterDS:O	Master-DataSet, was an den Programm übergeben wird
	aCustomInfoForCodeblock:U	Beliebige zusätzliche Informationen, die an das Programm übergeben werden
CbManualUndock():L	Formular wird von seiner aktuellen Position abgedockt
CbResize()	Führt einen Resize vom Formular aus Hierbei wird das Formular angewiesen seine Größe neu zu setzen
CbRequestAlign()	Führt ein RequestAlign vom Formular aus Hierbei wird das Formular angewiesen dass all seine Untercontrols sich neue ausrichten

Beispiel

CODE

| oMainForm, oMF_Btn, oMF_Info |

//******************************************************************************
function DoDF_Btn1_Click(Sender)
   |oParent|
   oParent := GetParent(Sender),
   oParent.CbHelper.CbInvokeUserDefinedEvent(Sender, 'LOCK', True),
end,

//******************************************************************************
function DoDF_Btn2_Click(Sender)
   |oParent|
   oParent := GetParent(Sender),
   oParent.CbHelper.CbInvokeUserDefinedEvent(Sender, 'LOCK', False),
end,

function DoCbUserDefinedEvent(Sender, aKey, aParams)
  if aKey = 'LOCK' then
     if aParams = True then
        oMF_Info.Visible := True,
     else
        oMF_Info.Visible := False,
     endif,
  endif,
end,

//******************************************************************************
function DoMF_Btn_Click(Sender)
   | oDetailForm, oDF_Btn1, oDF_Btn2 |
   // Detail-Formular erzeugen/anzeigen
   oDetailForm := CreateObject('TFormEx',, oMainForm),
   oDetailForm.OrigCapt := 'Detail-Fenster',
   AssignEvent(oDetailForm.CbHelper, 'OnCbUserDefinedEvent', 'DoCbUserDefinedEvent'),

   oDF_Btn1 := CreateObject('TBeBitBtn',, oDetailForm, oDetailForm),
   oDF_Btn2 := CreateObject('TBeBitBtn',, oDetailForm, oDetailForm),

   oDF_Btn1.Left    := 10,
   oDF_Btn1.Top     := 10,
   oDF_Btn1.Width   := 150,
   oDF_Btn1.Caption := 'Haupt-Fenster sperren',
   AssignEvent(oDF_Btn1, 'OnClick', 'DoDF_Btn1_Click'),
   oDF_Btn2.Left    := 180,
   oDF_Btn2.Top     := 10,
   oDF_Btn2.Width   := 150,
   oDF_Btn2.Caption := 'Haupt-Fenster entsperren',
   AssignEvent(oDF_Btn2, 'OnClick', 'DoDF_Btn2_Click'),
   Show(oDetailForm),
end,

//******************************************************************************
// Haupt-Formular erzeugen/anzeigen
//******************************************************************************
oMainForm := CreateObject('TFormEx'),
oMainForm.OrigCapt := 'Haupt-Fenster',

oMF_Btn  := CreateObject('TBeBitBtn',, oMainForm, oMainForm),
oMF_Info := CreateObject('TBeInfoPanel',, oMainForm, oMainForm),

oMF_Btn.Align            := alBottom,
oMF_Btn.AlignWithMargins := True,
oMF_Btn.Caption          := 'Detail-Fenster öffnen',
AssignEvent(oMF_Btn, 'OnClick', 'DoMF_Btn_Click'),

oMF_Info.Visible := False,
oMF_Info.Caption := 'Fenster ist Gesperrt!',
oMF_Info.Align   := alTop,

ShowModal(oMainForm),

TBeCbFormExHelper

Eigenschaften

Eigenschaften

Aktive Eigenschaften (Events)

Funktionen und Methoden

Beschreibung

Beispiel