Event "Formular - nach Erstellung"
Event "Formular - nach Erstellung"
Der Event wird unmittelbar nach dem Erstellen eines be-Fensters (Formulars) aufgerufen.
Zur Zeit geschieht dies nur im Haupt-Fenster der Warenwirtschaft, der Finanzbuchhaltung,
des Printmanageres, des Reportgenerators sowie in der Rechnungskontrolle
und der Programmierung (siehe Beispiel).
Dieses Event kann verwendet werden um beispielsweise ein Individual-Haupt-Menü zu integrieren.
Beispiel
CODE
| nEvtNo:P1, oForm:P2, oMenu |
// Aufruf erfolgt nach dem Erstellen des Formulars
// Formularname kann über ClassName(oForm) eindeutig abgefragt werden
// Ein TBeCustomMenuPanel (Individual-Menu) kann mit oForm als Owner erstellt werden
if Empty(oForm) then
// Falls kein Paramter angegeben wird Menü-Editor anzeigen
oMenu := CreateObject("TBeCustomMenuPanel","MyMenuPanel",oForm),
oMenu.ID := 815, // dummy
oMenu.ShowMenuEditor,
else
// Ansonsten je nach Haupt-Fenster Indiv.Menü-Panel erzeugen, um das
// Haupt-Menü zu ergänzen
case ClassName(oForm)
of "TF_ProgMain" :: // Programmierung
oMenu := CreateObject("TBeCustomMenuPanel", "MyMenuPanel", oForm),
oMenu.ID := 815,
oMenu.ShowMenu,
of "TFormMain" :: // BE-Hauptfenster
oMenu := CreateObject("TBeCustomMenuPanel", "MyMenuPanel", oForm),
oMenu.ID := 816,
OMenu.InsertAt := FindObject(oForm, "mnuDatev"),
oMenu.ShowMenu,
endcase,
endif,