单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,DELPHI对话框的使用,DELPHI对话框的使用,DELPHI对话框的使用DELPHI对话框的使用,1,DELPHI对话框的使用,对话框的使用,DELPHI对话框的使用对话框的使用,2,OpenDialog,对话框,DELPHI对话框的使用,OpenDialog对话框DELPHI对话框的使用,3,对话框的使用,OpenDialog对话框,属 性,功 能,Filename,默认打开的文件,Filter,过滤扩展名,Filterindex,默认打开文件类型,Initiadir,默认路径,Title,标题栏文字,说明：打开对话框,DELPHI对话框的使用,对话框的使用OpenDialog对话框属 性功,4,对话框的使用,OpenDialog对话框-filter设置,DELPHI对话框的使用,对话框的使用OpenDialog对话框-filte,5,对话框的使用,OpenDialog对话框例：打开文本文件，并显示在memo控件中。,procedure TForm1.Button1Click(Sender:TObject);,begin,if OpenDialog1.Execute then /判断是否点击“打开”按钮,begin,Memo1.Lines.LoadFromFile(OpenDialog1.FileName);,end;,end;,DELPHI对话框的使用,对话框的使用OpenDialog对话框例：打开文本文件，并,6,SaveDialog话框,DELPHI对话框的使用,SaveDialog话框DELPHI对话框的使用,7,对话框的使用,SaveDialog对话框,属 性,功 能,Filename,默认打开的文件,Filter,过滤扩展名,Filterindex,默认打开文件类型,Initiadir,默认路径,Title,标题栏文字,Defaultext,自动添加扩展名,说明：保存对话框,DELPHI对话框的使用,对话框的使用SaveDialog对话框属 性功,8,对话框的使用,SaveDialog对话框例：,procedure TForm1.Button2Click(Sender:TObject);,begin,if SaveDialog1.Execute then,begin,Memo1.Lines.SaveToFile(SaveDialog1.FileName);,end;,end;,DELPHI对话框的使用,对话框的使用SaveDialog对话框例：procedur,9,OpenPictureDialog,对话框,DELPHI对话框的使用,OpenPictureDialog对话框DELPHI对话框的,10,对话框的使用,OpenPictureDialog对话框,属 性,功 能,Filename,默认打开的文件,Filter,过滤扩展名,Filterindex,默认打开文件类型,Initiadir,默认路径,Title,标题栏文字,说明：打开图片 对话框,DELPHI对话框的使用,对话框的使用OpenPictureDialog对话框属,11,对话框的使用,OpenPictureDialog对话框,procedure TForm1.Button1Click(Sender:TObject);,begin,if OpenPictureDialog1.Execute then,begin,Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);,end;,end;,DELPHI对话框的使用,对话框的使用OpenPictureDialog对话框proc,12,SavePictureDialog,对话框,DELPHI对话框的使用,SavePictureDialog对话框DELPHI对话框的,13,对话框的使用,OpenPictureDialog对话框,属 性,功 能,Filename,默认打开的文件,Filter,过滤扩展名,Filterindex,默认打开文件类型,Initiadir,默认路径,Title,标题栏文字,说明：打开图片 对话框,DELPHI对话框的使用,对话框的使用OpenPictureDialog对话框属,14,对话框的使用,OpenPictureDialog对话框,procedure TForm1.Button1Click(Sender:TObject);,begin,if SavePictureDialog1.Execute then,begin,Image1.Picture.SaveToFile(SavePictureDialog1.FileName);,end;,end;,DELPHI对话框的使用,对话框的使用OpenPictureDialog对话框proc,15,FontDialog,对话框,DELPHI对话框的使用,FontDialog对话框DELPHI对话框的使用,16,DELPHI对话框的使用,对话框的使用,FontDialog对话框,属 性,功 能,Font,默认字体,Maxfontsize,最大字号,Minfontsize,最下字号,说明：字体 对话框,DELPHI对话框的使用对话框的使用FontDialog对话,17,DELPHI对话框的使用,对话框的使用,procedure TForm1.Button1Click(Sender:TObject);,begin,if form1.FontDialog1.Execute then,begin,form1.Label1.Font:=form1.FontDialog1.Font;,end;,end;,FontDialog对话框字体的设置,DELPHI对话框的使用对话框的使用procedure TF,18,DELPHI对话框的使用,ColorDialog,对话框,DELPHI对话框的使用ColorDialog对话框,19,DELPHI对话框的使用,对话框的使用,FontDialog对话框,属 性,功 能,Color,颜色,说明：颜色 对话框,DELPHI对话框的使用对话框的使用FontDialog对话,20,DELPHI对话框的使用,对话框的使用,FontDialog对话框例：,DELPHI对话框的使用对话框的使用FontDialog对话,21,DELPHI对话框的使用,PrintDialog,对话框,DELPHI对话框的使用PrintDialog对话框,22,DELPHI对话框的使用,对话框的使用,PrintDialog,对话框,说明：打印设置 对话框,注：在打印之前应判断是否有打印机存在。,DELPHI对话框的使用对话框的使用PrintDialog对,23,DELPHI对话框的使用,对话框的使用,PrintDialog,对话框-判断打印机是否存在(使用tprinter类),Uses Qprinters;,procedure TForm1.Button1Click(Sender:TObject);,var,p:tprinter;,begin,p:=tprinter.Create;,if,p.Printers.Count 0 then,begin,RichEdit1.SelStart:=SelPos-1;,RichEdit1.SelLength:=Length(ReplaceDialog1.FindText);,RichEdit1.SelText:=ReplaceDialog1.ReplaceText;,end,else,showmessage(没找到);,end;,DELPHI对话框的使用对话框的使用replaceDialo,38,DELPHI对话框的使用,捕获异常,DELPHI对话框的使用捕获异常,39,DELPHI对话框的使用,捕获异常,程序运行中发生错误 异常保护,格式:,Try /保护运行块,Finally/无论发生错误否都执行,End;,DELPHI对话框的使用捕获异常程序运行中发生错误 异常,40,DELPHI对话框的使用,捕获异常,程序运行中发生错误 捕获异常,格式(必须编译后):,Try /保护运行块,except/当发生错误时执行,on,e:exception,do showmessage(e.message);/获取系统错误提示,End;,on e:Exception do showmessage(e.message);/捕获任何错误,DELPHI对话框的使用捕获异常 程序运行中发生错误,41,DELPHI对话框的使用,捕获异常,程序运行中发生错误 例:,procedure TForm1.Button1Click(Sender:TObject);,var,i:double;,begin,try,i:=strtofloat(aa);,except,on e:Exception do showmessage(e.message);,end;,end;,DELPHI对话框的使用捕获异常程序运行中发生错误 例:,42,