Delphi之面对象的界面复用技术.docVIP

Delphi之面向对象的界面复用技术代码复用和界面复用 ? 面向对象的编程思想强调代码的可复用。而Delphi的精髓实际上就是Object Pascal语言，Object Pascal语言是一个非常强大的面向对象的编程语言，可以通过对象的继承实现代码复用。同时Delphi作为一个强大的RAD开发工具，不仅可以实现代 码复用，还可以实现可视化界面的复用。 ? 基于复制粘贴的界面重用 ? Delphi最早提出的复用不是面向对象的，而是类似于代码库的重用，比如在执行窗体右键菜单的Add To Repository命令，可以将一些常用的窗体如关于对话框添加到Delphi的代码库中，以后可以在新建窗体时，直接创建一个完全的一样的对话框。其 实这种复用无法是帮助我们简化了复制粘贴的过程而已，会带来很多后续维护的问题，过多的使用这种方式编程，会导致大量重复的代码，大量重复的错误。而现代 的编程思想如XP，则认为不允许复制粘贴代码，一旦遇到这种情况，就要进行重构。 ? 可视化窗体继承(Visual Form Inheritance) ? 可视化窗体继承，以下我们 简称其为VFI是Delphi2开始出现的一种软件复用技术。允许我们创建一个基类窗体，并从这个基类窗体派生新的窗体。它在标准的以代码重用为目的类继 承的基础上实现了对可视化界面元素的重用。让我们做个试验，假设我们现在编写一组系统配置管理界面，为了统计界面样式，规定所有的配置管理界面都应该有一 个容器面板，一个确定和一个取消按钮，由于这样的界面非常多，为了界面的统一，我们就来创建这样一个基类界面，首先新建一个项目起名VFI，然后使用 File | New Form菜单命令新建一个界面，起名为TBaseOptionDlg，界面示意图如下： ? 然后下面创建一个派生类窗 体，用来配置数据库连接的参数，选择 File | New …菜单，调出New Items 对话框中，切换到当前的项目VFI下，选中刚才创建的基类BaseOptionDlg，注意在界面的下边inherit的单选框处于选中的状态。点击确 定，就会创建一个新的派生配置管理界面了。 ? 可以看到我们的派生类自动就继承了父窗体所有的按钮和面板等界面元素。下面，在主窗体上添加一个数据库连接参数菜单，添加我们的DB参数配置界面， procedure TFormMain.N4Click(Sender: TObject); var ? AForm:TDBOptionDlg; begin ? AForm:=TDBOptionDlg.Create(Application); ? try ??? AForm.ShowModal; ? finally ??? AForm.Free; ? end; end; ? 运行一下后，我突然想起 来，一般配置管理界面都会有一个默认值的按钮，可以用来恢复默认配置参数的值，而刚才设计界面时忽略了这个问题。打开基类窗体，在窗体上放置一个新的默认 设置按钮，保存后。回过头来，可以发现我们的数据库配置界面也神奇增加了一个新的按钮。想像一下，如果你的工程中需要编写几十个配置管理窗体，如果不使用 窗体继承的方式来编写的话，在程序已经进入测试阶段时候，客户突然发现上面这个问题，要求修改，那么修改的工作量就会非常大，而且很难保证不会因为疏忽而 忘记修改某个配置界面。而使用窗体继承的方式，我们只要修改基类窗体就可以保证修改对所有的派生类都生效。 ? 除了界面继承之外，VFI也可以实现代码继承，在基类窗体的OnCreate事件中显示一个提示信息对话框： procedure TBaseOptionDlg.FormCreate(Sender: TObject); begin ? ShowMessage(配置参数界面); end; ? 运行程序后，你会发现虽然我们没有编写派生窗体的OnCreate事件处理过程，但是显示界面时，仍然会弹出消息对话框。 ? 同时，由于窗体的属性通过VFI被共用，可以有效地减 少占用的系统资源，比如有时我们可能会在界面上放上一个大的图片进行界面美化，如果这个图片被放在多个界面中，而这些界面之间没有继承关系的话，图片就会 被多次编译进资源中，在我们不知不觉中文件大小可能会翻了几倍。而将图片放在基类窗体中，无论图片被多少个子窗体共用，资源都只被编译一次，因此可以极大 的减少生成的可执行文件尺寸和加载速度。 ? VFI窗体属性及代码重载 ? VFI支持继承，使我们可以重用一些有共性的代码，但是每个界面又有它特性的一面，这可以通过重载来实现。 ? 比如这回我觉得配置管理窗 体上面板的颜色有些单调，想调整为淡黄色的，但是我又不确定其它人是否会赞同我的审美眼光，所以我不打算修改基类的窗体面板颜色属性，而只是修改派生的数 据库