Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

TBeCbFormExHelper


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 

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