Delphi 入门基础知识(五)
1.4.3.1 调用标准对话框
您可以发现,除了
Font,Find,Replace 对话框之外,其余标准对话框的 EVEnts 页都是空
白的。因为它们本身是不可视的对话框形式,所以不能响应标准的鼠标键盘操作,只能在程
序中调用它们。在本章第一节的
Demo 程序中,我们已经对用 Color 对话框有了了解,在程
序的适当位置加入对话框所属的
Execute 方法,可以执行标准对话框。
在编制应用程序时,您可以先设计好主菜单。在需要使用标准对话框的菜单项的事件处
理过程中,调用标准对话框的
Execute 等方法,以满足设计需求,即响应菜单命令弹出标
准对话框。
1.4.3.2 OpenDialog 和 SaveDialog 部件
OpenDialog(文件的打开)和 SaveDialog(保存对话框)部件处理文件的打开与存储,它们
拥有完全相同的属性域。
DefaultExt 属性表示缺省扩展名。当用户没有输入文件的后缀时,
可以为用户文件自动加扩展名。
FileName 属性指定出现在 FileName 正文框中的缺省文件名 。
Filter 属性提供了文件过滤器。FileEditStyle 决定在输入文件名时用 Edit 还是 Combo- Box;
设置为
fsComboBox 时,允许使用历史列表 HistoryList 属性,这在应用程序需要经常选择
文件时,可以节约大量的时间。
HistoryList 属性保存有在 File Name 下拉式编辑框中显示的
文件名,使用
[TStrings]的省略按钮可以编辑历史列表。您也可以编程实现将 HistoryList 属
性设为以前用
OpenDialog 打开的文件名历史列表。下列程序段可以实现自动历史文件名加
载:
if OpenDialog1.Execute then
OpenDialog1.HistoryList.Insert(0,OpenDialog1.FileName);
1.4.3.3 ColorDialog 和 FontDialog
颜色对话框
ColorDialog 我们在前文的例程中已经用过,其更详细的功能如 Options 的
设定请查阅在线帮助。
字体对话框
Font 可以帮助用户获取各种方式的字体。使用 OnApply 事件,可以使得
Font 对话框中包含一个 Apply 按钮,按动它,对话框中设定的字体会立即应用到指定的对
象中,而对话框仍然是打开的,这样更便于观察修改的结果。
以下的例程在窗体中先放置一个按钮
Button1,调用字体对话框来改变按钮上的
Caption 属性显示的字体:
Procedure TForm1.Button1Click(Sender:TObject);
begin
FontDialog1.Execute;
end;
Procedure TForm1.FontDlgApply(Sender:Tobject);
begin
Button1.Font:= FontDialog1.Font;
end;