Fejlesztési MDI alkalmazás Delphi, delphisite
eljárás TfrMain. CreateChildForm
# 40; const childName. húr # 41; ;
var Child: TfrChild;
Gyermek: = TfrChild. teremt # 40; kérelem # 41; ;
Gyermek. Caption: = childName;
Ez a kód létrehoz egy gyerek formában childName fejlécet.
Ne felejtsük el, hogy ez a kód a „használ uchild”.
A szoros, nem csökkentheti!
Zárás egy gyermek ablak az MDI alkalmazás egyszerűen minimalizálja azt a kliens területe a szülő ablakot. Ezért biztosítanunk kell OnClose eljárást és állítsa az Action paraméter caFree:
eljárás TfrChild. FormClose
# 40; Sender: TObject; var Action: TCloseAction # 41; ;
Megjegyzendő, hogy ha a forma egyik leányvállalata az MDI formájában, és annak tulajdonság értéke BorderIcons biMinimize (ez az alapértelmezett), majd ismét az alapértelmezett beállítás Action caMinimize. Ha az MDI gyermek forma nem ezeket a beállításokat, az alapértelmezett beállítás Action Canone, ami azt jelenti, hogy nem történik semmi, amikor bezárja az űrlapot.
MDI szülő menü
Minden MDI alkalmazás kell egy főmenüt (ha mást nem), ablak igazítás opciót. Ahogy arról korábban költözött a gyermek formájában automatikusan generált (Auto-create) a rendelkezésre álló (Szabad piac) formában, szükségünk lesz egy kód, amely (menüpont) hoz létre gyermek formákat.
Ahhoz, hogy hozzon létre egy „új gyerek” menüpont használható alkalmazásunk gyermek ablakot. A második menü (Window) fogják használni, hogy összehangolják a gyermek ablakok a szülő ablak formájában.
. Létrehozása és megjelenítése
Összefoglalva, meg kell, hogy a kezelő a menüpont „Új gyerek”. Ha rákattint a Fájl menü Punk | Új Child a mi alkalmazás, lesz az úgynevezett eljárás NewChild1Click ami viszont okoz CreateChildForm eljárások (a fentiekben megadva), hogy hozzon létre a (következő) példány formájában frChild.
eljárás TfrMain. NewChild1Click # 40; Sender: TObject # 41; ;
CreateChildForm # 40; 'Gyermek' + IntToStr # 40; MDIChildCount 1 # 41; # 41; ;
Az újonnan létrehozott gyermek formában lesz egy címet formájában „Child x”, ahol x jelenti a számát gyermek formák belsejében MDI formák alábbiakban leírtak szerint.
Zárja be az összes
Amikor dolgozik egy alkalmazás, amely több dokumentum felület, akkor mindig van egy eljárás, amely minden gyermek ablakok.
eljárás TfrMain. CloseAll1Click # 40; Sender: TObject # 41; ;
i: = 0 MdiChildCount - 1 do
MDIChildren # 91; én # 93;. Bezárás;
Meg kell végezni ellenőrzi a jelenlétét a nem mentett adatok minden gyermek ablakot. A probléma megoldására a legjobb, ha használni OnCloseQuery eseménykezelő.
Tulajdonságok MdiChildCount és MDIChildren
MdiChildCount csak olvasható tulajdonság, amely számos jól bevált gyermek ablakok. Ha nem jön létre, nincs gyermek ablakot, akkor ez a tulajdonság értéke 0. Azt kell gyakran MdiChildCount együtt MDIChildren tömb. MDIChildren tömb utalásokat tartalmaz tárgyak TForm minden gyermek ablakok.
Vegye figyelembe, hogy MDIChildCount először létre gyermek ablakot 1.
Ablak menü
Delphi biztosítja a legtöbb parancsokat lehet helyezni az Ablak menü. Az alábbiakban egy példát hívja a három fő módszer parancsok, hogy mi tesz a mi alkalmazás:
eljárás TfrMain. Cascade1Click # 40; Sender: TObject # 41; ;
eljárás TfrMain. Tile1Click # 40; Sender: TObject # 41; ;
eljárás TfrMain. ArrangeAll1Click # 40; Sender: TObject # 41; ;