5.对话框的使用---捕获异常.pptVIP

DELPHI对话框的使用 * * DELPHI对话框的使用 DELPHI对话框的使用 对话框的使用 OpenDialog对话框 DELPHI对话框的使用 对话框的使用 OpenDialog对话框 标题栏文字 Title 默认路径 Initiadir 默认打开文件类型 Filterindex 过滤扩展名 Filter 默认打开的文件 Filename 功 能 属 性 说明：打开对话框 DELPHI对话框的使用 对话框的使用 OpenDialog对话框 ---- filter设置 DELPHI对话框的使用 对话框的使用 OpenDialog对话框—例：打开文本文件，并显示在memo控件中。 procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then //判断是否点击“打开”按钮 begin Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end; end; DELPHI对话框的使用 SaveDialog话框 DELPHI对话框的使用 对话框的使用 SaveDialog对话框 自动添加扩展名 Defaultext 标题栏文字 Title 默认路径 Initiadir 默认打开文件类型 Filterindex 过滤扩展名 Filter 默认打开的文件 Filename 功 能 属 性 说明：保存对话框 DELPHI对话框的使用 对话框的使用 SaveDialog对话框—例： procedure TForm1.Button2Click(Sender: TObject); begin if SaveDialog1.Execute then begin Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; end; DELPHI对话框的使用 OpenPictureDialog对话框 DELPHI对话框的使用 对话框的使用 OpenPictureDialog对话框 标题栏文字 Title 默认路径 Initiadir 默认打开文件类型 Filterindex 过滤扩展名 Filter 默认打开的文件 Filename 功 能 属 性 说明：打开图片 对话框 DELPHI对话框的使用 对话框的使用 OpenPictureDialog对话框 procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end; DELPHI对话框的使用 SavePictureDialog对话框 DELPHI对话框的使用 对话框的使用 OpenPictureDialog对话框 标题栏文字 Title 默认路径 Initiadir 默认打开文件类型 Filterindex 过滤扩展名 Filter 默认打开的文件 Filename 功 能 属 性 说明：打开图片 对话框 DELPHI对话框的使用 对话框的使用 OpenPictureDialog对话框 procedure TForm1.Button1Click(Sender: TObject); begin if SavePictureDialog1.Execute then begin Image1.Picture.SaveToFile(SavePictureDialog1.FileName); end; end; DELPHI对话框的使用 FontDialog对话框 DELPHI对话框的使用 DELPHI对话框的使用 对话框的使用 FontDialog对话框 最下字号 Minfontsize 最大字号 Maxfontsize 默认字体 Font 功 能 属 性 说明：字体 对话框 DELPHI对话框的使用 对话框的使用 procedure TForm1.Button1Click(Sender: TObject); begin if form1.FontDialog1.Execute then begin form1.Label1.Font:=form1.FontDialog1.Font; end; end; FontDialog对话框—字体的设置 DEL