Delphi 之 对话框组件

本文整理自网络，侵删。

 Delphi 之 对话框组件OpenDialog组件
OpenDialog用来打开文件的一个对话框。
　　Filter
该属性可设置文件类型单击该属性如图


Filter Name设置文件的名字，Filter设置文件的类型
复制代码  OpenDialog1.Filter:='文本文件(*.TXT)|*.TXT';　　File
file属性是Tstring类型，它返回文件名字符串及完整的路径名。
　　FileName
　　用来设置打开文件对话框文件名文本框的内容。返回一个文件名及完整的路径名。
　　Title
　　用来设置对话框的标题。
　　FilterIndex
　　当设置多个过滤文件的时候，FilterIndex用于设置文件类型下拉列表中默认显示文件的类型。
　　InitiaDir
　　用于设置打开对话框默认目录，如果为空值，那将打开当前工作的目录。
　　Execute
　　使用该方法将打开对话框。
　　SaveDialog 组件
　　该组件用来保存文件对话框，与OpenDialog组件的属性和方法一样，唯一不同的是Options属性中多一个可选值为
OfOverwritePrompt，如果该值为True，那么将保存文件。
　　FontDialog组件
　　该组件用来设置字体的对话框包括字体的大小，颜色及样式。
　　Font
　　用来保存字体对话框设置的结果
　　Device
　　用来设定检索可用字体的设备，fdPrinter、fdScreen、fdBoth分别表示打印机、屏幕及两者中得到可用字体。
　　MinFontSize和MaxFontSize
　　设置字体的最小和最大尺寸，0表示没有限制
　　Execute
　　该方法将打开字体对话框。
　　ColorDialog组件
　　用来设置颜色属性，包括自定义颜色。常用的属性有
　　Color
　　用来设置颜色对话框的初始颜色，更重要的是将保存对话框设置后的结果
　　CustomColors
　　用于初始化或保存自定义的颜色。
　　示例 对话框应用
procedure TForm1.Button1Click(Sender: TObject);
begin    if OpenDialog1.Execute() then    begin      Memo1.Clear;      Memo1.Lines.LoadFromFile(OpenDialog1.FileName);    end;end;procedure TForm1.Button5Click(Sender: TObject);begin  Form1.Closeend;procedure TForm1.Button4Click(Sender: TObject);begin  if ColorDialog1.Execute() then  begin    Memo1.Color:= ColorDialog1.Color;  end;end;procedure TForm1.Button3Click(Sender: TObject);begin  if FontDialog1.Execute() then  begin    Memo1.Font:= FontDialog1.Font;  end;end;procedure TForm1.Button2Click(Sender: TObject);begin  SaveDialog1.Filter:= 'Word file(*.doc)|*.doc|Textfile(*.txt)|*.txt';  if SaveDialog1.Execute() then  begin    Memo1.Lines.SaveToFile(SaveDialog1.FileName);  end;end;
end.
 

相关阅读 >>

Delphi xe安装 tclientsocket, tserversocket控件

Delphi xe 取得硬盘序列号代码

Delphi findwindow的一些用法

Delphi获取文件编码

Delphi 百度输入提示 Delphi 实现

Delphi 限制form窗体为固定的大小

Delphi判断某个程序是否已经启动

Delphi整理七（function and procedure）

Delphi assignfile 与指定的文件建立连接

Delphi判断电脑连接到 internet 了吗？

更多相关阅读请进入《Delphi》频道 >>