TWBMainForm = class(TForm)
Popis
T°φdu TWBMainForm budete pou₧φvat jako p°edka rßmcovΘho (hlavnφho) okna (kterΘ v dodanΘm vzorovΘm projektu naz²vßme TMainForm - viz jednotka MAIN.PAS) vaÜφ MDI aplikace Delphi.
T°φda je velmi podobnß t°φd∞ TWBaseServer602 jak pokud jde o vnit°nφ k≤d, tak pokud jde o jejφ pou₧φvßnφ a funkci. TWBaseServer602 je ji₧ popsßna, proto se zde omezφme jen na odliÜnosti obou t°φd.
1) Pro zpracovßnφ zprßv nemß, ₧ßdnΘho pomocnφka v podob∞ specißlnφ komponenty k tomu urΦenΘ (u t°φdy TWBaseServer602 plnφ tuto ·lohu TMSGFrame), proto zprßvy budete obsluhovat na ·rovnφ jejφch message handler∙. T°φda obsahuje t°i message handlery:
WMCommand |
pro zpracovßnφ automatick²ch a u₧ivatelsk²ch zprßv (a p°φp. ostatnφch zprßv WM_COMMAND, kterΘ ji₧ nepochßzejφ z 602SQL) |
SZMSetStatusText
|
pro ovlßdßnφ stavovΘ liÜty Delphi. |
SZMSetToolBar |
pro nastavenφ a v²b∞r nßstrojovΘ liÜty Delphi. |
Tyto message handlery m∙₧ete umφstit tΘ₧ do potomka t°φdy TWBMainForm tj. vaÜeho rßmcovΘho MDI formulß°e.
2) Aplikace vystav∞nΘ na tΘto t°φd∞ mohou pou₧φvat jak liÜty z Delphi, tak liÜty z 602SQL (na rozdφl od aplikacφ zalo₧en²ch na komponentßch, kde se pou₧φvajφ jen liÜty z Delphi). Nenφ mo₧nΘ vÜak kombinovat liÜty z 602SQL a Delphi tj. pou₧φt nßstrojovou liÜtu z 602SQL a stavovou listu z Delphi Φi naopak. Abyste sd∞lili 602SQL, Φφ liÜty budete pou₧φvat, musφte nastavit prom∞nnou Flags v konstruktoru Create takto
| Hodnota Flags | V²znam |
| 0 | Ob∞ liÜty z 602SQL |
| WBF_NO_TOOLBAR or WBF_NO_STATUSBAR | Äßdnß liÜta z 602SQL |
| WBF_NO_TOOLBAR | Jen stavovß liÜta z 602SQL |
| WBF_NO_STATUSBAR. | Jen nßstrojovß liÜta z 602SQL |
Je tedy vid∞t, ₧e pokud jde o pou₧φvßnφ t°φdy, budete - na rozdφl od TWBaseServer602 - pracovat ΦßsteΦn∞ (by¥ jednoduÜe) s jejφm zdrojov²m k≤dem a tento k≤d (d∙kladn∞ okomentovan² a ne p°φliÜ slo₧it²) byste m∞li pochopit ne₧ zaΦnete vytvß°et Delphi aplikaci.
Jednotka WBPARENT.PAS bude souΦßstφ VaÜeho projektu.