+

Delphi技巧

    Delphi提供了许多常用的标准对话框构件，如Dialogs组中有Open、Save、Font、Print等。这些标准对话框构件的使用方法是很简单的，因为Delphi为这些构件提供了一种统一的Execute方法。以“打开文件”对话框为例：
    1、在窗体Form1中增加OpenDialog构件，命名为Opendialogl，在ObjectInspector窗口设置各种属性；
    2、在窗体Form1中增加标准按钮Button1，为其相应的单击事件响应过程增加这样的语句；
    IfOpendialogl．ExecuteThenBegin…End；
    则，显示出一标准“打开文件”对话框，用户可以选择典型的操作。
    如果按OK，Execute方法返回True，程序将执行上述Begin．．．End之间的语句；否则，返回False。
    Delphi还允许用户自定义对话框。以如图所示“文本输出”对话框为例，一般的作法是：
    1、开启一新Project，在Form1设置按钮Button1；
    2、新增Form2，在其中安排所需要的各种按钮、标签、文本框，BorderStyle属性为bsDialog，设置成对话框。其中BitBtnl、BitBtn2的Kind属性分别设置为bkOK、bkCan