delphi课件第四章.pptVIP

第4章 对话框和多窗体设计 ;4.1 Delphi7内建的对话框函数;4.1.1 ShowMessage函数;4.1.2 ShowMessagePos函数;4.1.3 ShowMessageFmt 函数;4.1.4 MessageDlg 函数;4.1.5 MessageDlgPos 函数;4.1.6 MeaageDlgPosHelp 函数;4.1.7 MessageBox 函数;4.1.8 InputBox 函数;4.1.9 InputQuery 函数;4.2 Delphi 通用对话框;4.2.1 TOpenDialog 和 TSaveDialog组件;4.2.1 TOpenDialog 和 TSaveDialog组件;4.2.1 TOpenDialog 和 TSaveDialog组件;4.2.2 TOpenPictureDialog组件和TSavePictureDialog组件;图4-9 载入或保存图片窗体界面 ;4.2.3 TFontDialog和TColorDialog;图4-14 字体和颜色对话框使用例子界面 ;procedure TForm1.Button1Click(Sender: TObject); begin if FontDialog1.Execute then label1.Font :=FontDialog1.Font ; end; ? procedure TForm1.Button2Click(Sender: TObject); begin if ColorDialog1.Execute then Shape1.Brush.Color :=ColorDialog1.Color ; end; procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Shape := stEllipse; end; ;4.2.4 TFindDialog Componement和TReplaceDialog Componement;4.2.5 TPrintDialog 和TPrinterSetupDialog;在Delphi中，文件打印有两种方式：一种方式是将文件变量分配给打印机，用此变量名创建或打开文件后， 往此文件变量写入的任何文本都视为向打印机输出；另一种方式是利用Printers单元中定义的TPrinter对象进行文件打印。 TPrinter对象可调用Windows的打印机，在Printer 单元中定义了TPrinter 的实例Printer，用户可直接使用。调用TPrinter的BeginDoc方法可开始一项打印工作，调用EndDoc 方法可结束一项已成功发送给打印机的工作。如果在发送过程中出现问题或用户想中途终止打印工作，可调用Abort方法。 有关 TPrinter 对象的属性介绍如下： （1）Aborted 属性：如果用户中断打印工作，则该属性返回真（True）值。 （2）Canvas属性：代表打印表面，通过Canvas 属性的Brush、Font、Pen属性可决定打印字体或图像的特征。 （3）Printers属性：该属性中包含着已安装的打印机列表。 （4）PrinterIndex 属性：该属性是当前选择的打印机在打印机列表中的序号。 （5）Fonts属性：该属性中有当前打印机支持的字体。 （6）Orientertion属性：该属性可决定打印方向。 （7）PageHeight 属性：表示打印机一页的高度。 （8）PageWith属性：表示打印机一页的宽度。 （9）PageNumber属性：为当前页的值。 （10）Title属性：可决定在Windows打印管理器或网络中出现的文本。 ;4.3 多重窗体设计;4.3.1 多重窗体的管理;2．删除窗体 删除工程中多余的窗体实质是删除该窗体所对应的单元，不能只删除窗体而不删除其对应的窗体单元。其操作大致有以下几种方法： 从【Project】菜单中单击【Remove From Project…】命令选项，可弹出 Remove From Project 对话框（见图4-23所示），从中选出要从工程中删除的窗体所对应的单元，然后单击 OK 就可删除相应的窗体。 在 Standard 工具栏上单击 【Remove File From Project】命令按钮，也会弹出 Remove From Project 对话框，从中选出要从工程中删除的窗体所对应的单元，然后单击 OK 就可删除相应的窗体。 从【View】菜单中单击【Project Manager】命令选项，可调出项目管理器窗口，从窗口中选择要删除窗体所在的单元，再点击Remove