
第10讲多窗体设计 ·项目与窗体 ·多窗体设计
第10讲 多窗体设计 ⚫项目与窗体 ⚫多窗体设计

须目与窗体 个项目可以包含多个窗体 ·只有一个主窗体 。首先建立并显示在屏幕上 。第一个建立的窗体为隐含主窗 体
项目与窗体 ⚫一个项目可以包含多个窗体 ⚫只有一个主窗体 首先建立并显示在屏幕上 第一个建立的窗体为隐含主窗 体

侦目的窗体关系 主窗体 子窗体 子窗体 子窗体 子窗体 Form.show
项目的窗体关系 主窗体 子窗体 子窗体 子窗体 子窗体 Form.show

页目的窗体关系 form.showmodal
项目的窗体关系 form.showmodal

主窗体的确定 Main form: Form1 Auto-create forms: Available forms: Form1 Form2 Form3 >> Project/options.../forms
主窗体的确定 Project/options.../forms

窗体的创建 program Project1; 主程序 Application.Initialize; Application.CreateForm(TForm1... Application.CreateForm(TForm2... Application.CreateForm(TForm3
窗体的创建 program Project1; ... Application.Initialize; Application.CreateForm(TForm1... Application.CreateForm(TForm2... Application.CreateForm(TForm3... 主程序

多窗体设计例 ■窗体设计示例 回☒ 打开form2 打开form3 打开form4 退出 10-1创建
多窗体设计例 10-1创建

打开子窗体 implementation {$R *.dfm} uses unit2,unit3,unit3 procedure TForm1.Button1Click(...) begin form2.ShowModal end;
打开子窗体 implementation {$R *.dfm} uses unit2,unit3,unit3 ; procedure TForm1.Button1Click(...) begin form2.ShowModal ; end;

子窗体的返回 ●设置子窗体的ModalResult属性 OmrNone (无动作) OmrCancel (close、关闭框) OmrYes OmrNo oform2.showmodal mrYes
子窗体的返回 ⚫设置子窗体的ModalResult属性 mrNone (无动作) mrCancel (close、关闭框) mrYes mrNo ... ⚫form2.showmodal = mrYes

子窗体返回方法 ●实现返回的按钮代码 : Oform2.ModalResult mrYes Oform2.ModalResult mrNo Oform2.close (mrCancel)
子窗体返回方法 ⚫实现返回的按钮代码: form2.ModalResult := mrYes form2.ModalResult := mrNo form2.close ; (mrCancel)