首页 > 代码库 > 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 之 对话框组件