delphi制作多文档界面
- 格式:wps
- 大小:830.00 KB
- 文档页数:12
Delphi是一种编程语言和集成开发环境(IDE),支持多文档界面(MDI)应用程序的开发。
MDI是一种用户界面设计模式,允许在一个主窗口中同时打开多个子窗口。
在Delphi中,MDI应用程序的原理如下:
1. 创建主窗口:首先,你需要创建一个主窗口,它将包含所有的子窗口。
你可以使用Delphi的窗体设计器来创建主窗口。
2. 创建子窗口:接下来,你需要创建子窗口。
子窗口是主窗口的子控件,可以在主窗口中显示。
你可以使用Delphi的窗体设计器或代码来创建子窗口。
3. 设置主窗口属性:在主窗口上,你需要设置一些属性来启用MDI功能。
你可以将主窗口的FormStyle属性设置为fsMDIForm,这将使主窗口成为MDI容器。
4. 设置子窗口属性:在子窗口上,你需要设置一些属性来使其成为MDI子窗口。
你可以将子窗口的FormStyle属性设置为fsMDIChild,这将使子窗口成为MDI容器的子控件。
5. 打开子窗口:当用户需要打开一个子窗口时,你可以使用
Delphi的代码来创建一个新的子窗口实例,并将其添加到主窗口的子控件列表中。
6. 切换子窗口:用户可以通过点击主窗口的标题栏或使用菜单或工具栏来切换子窗口。
当用户切换子窗口时,主窗口会自动将当前活动的子窗口显示在前面。
7. 关闭子窗口:当用户关闭一个子窗口时,你需要从主窗口的子控件列表中移除该子窗口,并释放其资源。
通过以上步骤,你可以在Delphi中创建一个MDI应用程序,允许用户同时打开多个子窗口,并在主窗口中进行切换和管理。
C#WinfromMDI(多⽂档界⾯)1、⾸先设置⽗级Form1界⾯,只需要将该界⾯的IsMdiContainer属性设置为true;2、设置按钮的事件来打开⼦级的窗⼝Form2,Form3等等;3、在From1内设置⼀个容器panel,范围为需要打开的⼦级界⾯的⼤⼩;4、设置Form2、Form3的事件,以及唯⼀窗⼝等;//Form2的点击事件private void form2ToolStripMenuItem_Click(object sender, EventArgs e){Form2 f2 = new Form2(); = "f2";openwidow(f2);}//Form3的点击件private void form3ToolStripMenuItem_Click(object sender, EventArgs e){Form3 f3 = new Form3(); = "f3";openwidow(f3);}//设置唯⼀窗⼝://新建⼀个formlist集合,供唯⼀窗⼝使⽤List<Form> formlist = new List<Form>();//新建⼀个public的⽅法private void openwidow(Form f){//定义⼀个Form fff变量Form fff = null;//定义⼀个bool类型的变量为false;bool open = false;//遍历这个集合foreach (Form ff in listfrom){//只要遍历到就隐藏ff.Hide();//如果遍历到if ( == ){open = true;//把ff放到集合内fff = ff;}}//如果遍历到,if (open){//关闭所有窗⼝f.Close();//重新打开这个串⼝fff.Show();}//否则else{//设置打开的窗⼝为Form1的⼦窗体;f.MdiParent = this;//设置⼦窗⼝的⼤⼩为最⼤化;f.WindowState = FormWindowState.Maximized;//把⼦窗⼝放到Form1的panel1⾥;f.Parent = panel1;//设置⽆边框f.FormBorderStyle = FormBorderStyle.None;//打开窗⼝f.Show();//把这个窗⼝放到集合内fromlist.Add(f);}}。
最为一个巩固之前有关窗体和对象的有关知识,下面就建立一个简单的MDI示范程序,这个程序的功能是打开和保存图形文件(包括位图、图标等),为了完成这个任务,我们有一个大概的计划,计划内容如下:(1)建立主窗体(一个MDI父窗体),包括菜单。
(2)为【File | Open…】和【File | Save…】菜单选项编写代码。
(3)为Windows菜单上的Cascade、Tile和Arrange All选项编写代码。
(4)建立MDI子窗体。
(5)建立一个About对话框。
(6)然后再回忆和欣赏一下这段工作。
时间就是金钱,即刻就做吧。
一、创建主窗口窗体首先创建一个主窗口窗体,一个MDI应用程序的主窗口的FormStyle属性必须设置为fsMDIForm。
不但要为应用程序增加File Open和File Save 对话框,还要增加一个菜单。
1、启动Delphi,并从主菜单选择【File | New | Application】;2、把主窗体的Name属性设置为MainForm;3、把Caption属性设置为Picture Viewer;4、把FormStyle属性设置为fsMDIForm;好了,下面为此窗体增加一个菜单,利用Delphi特性,引进一个预定义菜单,具体如下:1、点击组件选项板的Standard标签,并点击MainMenu按钮;2、把MainMenu组件点击放置到窗体上,具体放到哪个地方无所谓了,因为在运行阶段,代表菜单的图标只是占地方而不显示,这是非可视化组件。
3、把MainMenu组件Name属性改为MainMenu;4、双击MainMenu组件,就会出现Menu Designer对话框;5、在MainMenu上点击鼠标右键,选择“Insert From Template…”,将出现Insert Template对话框;6、选择“MDI Frame Menu”并点击OK,此菜单将显示在Menu Designer上,关闭Menu Designer窗口。
现在又回到了主窗体,注意现在窗体上多了一条菜单,此时先不要点击任何子菜单项,我们先准备File Open对话框和File Save对话框:1、点击组件选项板的Dialogs标签,选择Open Picture Dialog组件,并把它放到窗体上,这也是一个非可视组件。
2、把Open对话框的Name属性改为OpenPictureDialog;3、把Open对话框的Title属性改为“Open a Picture for Viewing”;4、在窗体再增加一个Save Picture Dialog组件;5、把此组件的Name属性改为“SavePictureDialog”,把Title属性改为“Save aPicture”;此时窗体看起来应该像下图:二、编写【File | Open…】和【File | Save As…】菜单选项代码下面就准备开始编写代码,Delphi提供了一种很好地编写菜单处理程序的方法,从而使遇到的麻烦最小。
还不要建立MDI子窗体,但要充分了解它,并用它来为菜单处理程序编写代码,记住在建立MDI子窗体之前一直不要编译应用程序(因为还没有建立MDI子窗体,编译会出现错误的)1、在主窗体上选择【File | Open…】菜单项,这样就会在Code Editor中为此菜单项建立一个事件处理程序。
2、为此事件处理程序键入下列代码:?1 2 3 4 5 procedureTMainForm.Open1Click(Sender: TObject); varChild: TChild;beginifOpenPictureDialog.Execute then6 7 8 91011121314151617 beginChild := TChild.Create(Self);withChild.Image.Picture dobeginLoadFromFile(OpenPictureDialog.FileName);Child.ClientWidth := Width;Child.ClientHeight := Height;end;Child.Caption := ExtractFileName(OpenPictureDialog.FileName); Child.Show;end;end;这段代码首先打开一个“Open a Picture for Viewing”对话框,并得到一个文件名,如果点击这个对话框的OK按钮,就会产生一个TChild对象(TChild是MDI子类的名字,后面将要建立它。
)图像文件被显示到窗体上的Image组件,并且MDI子窗口将会与图像大小相匹配,最后子窗体的标题会显示被选中的图像文件名。
Note在上面的方法中,ExtractFileName函数是用来从路径中提取文件名的函数,文件名包含在OpenPictureDialog的FileName属性中,相关的函数包括ExtractFilePath、ExtractFileDir、ExtractFileDrive和ExtractFileExt。
Note前面我们说过所有动态创建的对象到最后都要用Free删除掉,但是上面的代码中好像违反了这个规律,实际上并没有,因为VCL将负责释放分配给MDI子窗口的内存。
注意TChild 构造程序中的单个参数是Self;这是通知VCL,MDI子窗体的拥有者就是此MDI窗体窗口。
当MDI窗体消失时,它将删除所有MDI子对象。
3、按下F12键,切换到主窗体MainForm,现在从菜单中选择【File | Save As…】,将会显示该菜单项处理事件。
4、键入以下代码:?1 2 3 4 5 6 7 8 9 procedureTMainForm.SaveAs1Click(Sender: TObject);beginifSavePictureDialog.Execute thenbeginwithActiveMDIChild asTChild do{ 检查MDI子窗体是否被激活,只保存激活窗体的图像文件}Image.Picture.SaveToFile(SavePictureDialog.FileNam e);end;end;这段代码比较简洁,头两行是用来检查MDI子窗口是否被激活,如果是激活的窗体,就会显示“Save a Picture”对话框,若用户点击OK,那就将用TPicture类的SaveToFile方法把图像存到盘上去。
Note前面的这段代码中用到了as操作符,ActiveMDIChild属性返回一个指向TForm对象的指针,在这种情况下,实际上只需要一个指向TChild对象的指针(MDI子类是从TForm类派生来的),as操作符把ActiveMDIChild变量强制转化为一个TChild指针,如果as不能完成这种强制转化,as后面的语句将被忽略。
在继续讲解前,我们先把这个工程保存起来,将Unit1保存为PctViewU.pas,将工程文件dpr保存为PictView。
三、为【Windows】菜单编写代码1、F12切换到MainForm窗体上,从窗体上MainMenu菜单上选择【Windows | Tile】;2、只需要为此事件处理程序中输入一行代码即可,最终的事件处理代码如下:?1 2 3 procedureTMainForm.ile1Click(Sender: TObject);begin4 Tile;end;3、切换到MainForm窗体,并为菜单【Windows | Cascade】创建代码,如下:?1 2 3 4 procedureTMainForm.Cascade1Click(Sender: TObject);beginCascade;end;4、切换到MainForm窗体,再次为菜单【Windows | Arrange All】创建代码如下:?1 2 3 4 procedureTMainForm.ArrangeAll1Click(Sender: TObject);beginArrangeIcons;end;好,主窗体工作完成了,下面将进行创建MDI子窗体。
四、创建MDI子窗体MDI子窗体非常简单,实际上不必写任何代码,只要操作下列各步即可:1、用工具栏上的New Form按钮或者通过主菜单上的【File | New Form】来创建一个新窗体;2、把它的Name属性设置为Child,Caption属性将被忽略,因为在运行阶段将要动态设置此属性;3、把FormStyle属性设置为fsMDIChild,为了把这个窗体当做MDI子窗体来处理,这是必须的。
为窗体本身要做的就这些,下面就在此窗体上放置一个Image组件,Image组件将显示用户选择的图形文件。
1、点击组件选项板上的Additional标签,点击Image按钮,并把它放置到Child窗体上;2、把它的Name属性设置为Image;3、把它的Stretch属性设置为True;4、把它的Align属性设置为alClient,Image组件将缩放到窗体的客户区大小;5、选择Delphi主菜单的【File | Save】,以MDIChild保存此窗体单元。
6、切换到Code Editor,点击PctViewU标签,然后从Delphi主菜单选择【File | Use Unit】,选择MDIChild单元,点击OK,这样该工程就可以编译了。
此时,整个MDI子窗体看上去如下:我们的程序还没有完成,因为还差一个About框,此时我们更渴望看到程序的运行,先点击Run按钮,就可以运行程序了,选择【File | Open…】就可以打开任何图形文件了。
注意MDI子窗口会自动缩放它所包含的图形,打开几个文件,然后试一试Window菜单的Cascade和Tile选项。
五、建立About对话框到目前为止,我们自己随意建立一个属于自己的About框,我的About对话框效果如下:1、将建立好的About窗体的Name属性设置为AboutBox,BorderStyle属性设置为bsDialog2、以PVAboutU保存此About对话框窗体单元;3、切换到Code Editor中的PctViewU标签,从Delphi主菜单选择【File | Use Unit】将PVAboutU单元包含近来;4、按F12切换到MainForm主窗体,从菜单上选择【Help | About】,这样就产生一个OnClick处理事件;5、为此事件添加代码如下:?1 2 3 4 procedureTMainForm.About1Click(Sender: TObject);beginAboutBox.ShowModal;end;现在运行它,点击Run按钮,试一试Help菜单的About选项,运行效果如下:六、进一步完善程序此时这个程序已经可以运行了,但它不等于就没有值得完善的地方。