图2 程序代码 图3 运行结果之一 20

图4 “字体”对话框 思考与练习 编程实现：在memo组件中输入文本，通过ColorDialog对话框设置memo组件中文本的颜色。 图5 文本颜色运行结果 21

实验总结 （1）通过实验熟悉了常用对话框的主要属性，并掌握了opendialog组件、savedialog组件和fontdialog组件的使用方法。 （2）掌握了opendialog组件、savedialog组件主要属性的用法。 （3）知道了如何编程实现opendialog组件和savedialog组件功能。

22

《Delphi程序设计》

实验名称：菜单设计实验报告

23