Delphi快速入门(五)

无敌青蛙蛙

无敌青蛙蛙

2016-01-29 14:02

Delphi快速入门(五),Delphi快速入门(五)
 

1.4.3.1 调用标准对话框 

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/delphi/)

         您可以发现,除了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

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/delphi/)

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; 

1.4.3.4 PrintDialog和PrintSetupDiaog 

       打印对话框PrintDialog和打印设置对话框PrintSetupDialog可以显示标准打印、打印设置对话框,支持打印文件和打印设置功能,设置它的Options属性可以规定对话框的表现形式 

1.4.3.5 FindDialog和ReplaceDialog 

        FindDialog和ReplaceDialog提供了查找、替换两个对话框部件,对于寻找和替换文本是极其有用的。在FindDialogReplaceDialog中都有OnFind事件,当用户单击寻找对话框中的Find Next按钮时将触发这一事件。FindText属性中保存了用户在Find What

展开更多 50%)
分享

猜你喜欢

Delphi快速入门(五)

Delphi
Delphi快速入门(五)

Delphi快速入门

编程语言 网络编程
Delphi快速入门

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Delphi快速入门(二)

Delphi
Delphi快速入门(二)

Delphi快速入门(一)

Delphi
Delphi快速入门(一)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Delphi快速入门(三)

Delphi
Delphi快速入门(三)

Delphi快速入门(四)

Delphi
Delphi快速入门(四)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

3DS《交叉领域计划2》专用名词详细解析

3DS《交叉领域计划2》专用名词详细解析

Delphi中怎样监视POP3信箱

Delphi中怎样监视POP3信箱
下拉加载更多内容 ↓