DELPHI基础教程

第一章 Delphi快速入门(五)

1.4.3.1 调用标准对话框 

         您可以发现,除了 Font,Find,Replace 对话框之外,其余标准对话框的 Events

         在编制应用程序时,您可以先设计好主菜单。在需要使用标准对话框的菜单项的事件处理过程中,调用标准对话框的 Execute

1.4.3.2 OpenDialog 和 SaveDialog

         OpenDialog(

if OpenDialog1.Execute then

OpenDialog1.HistoryList.Insert(0,OpenDialog1.FileName); 

1.4.3.3 ColorDialog 和 FontDialog 

      颜色对话框 ColorDialog

       字体对话框 Font

        以下的例程在窗体中先放置一个按钮 Button1

Procedure TForm1.Button1Click(Sender:TObject);

begin

FontDialog1.Execute;

end; 

Procedure TForm1.FontDlgApply(Sender:Tobject);

begin

Button1.Font:= FontDialog1.Font;

end; 

1.4.3.4 PrintDialog 和 PrintSetupDiaog 

       打印对话框 PrintDialog

1.4.3.5 FindDialog 和 ReplaceDialog 

        FindDialog 和 ReplaceDialog

1.5 使用 Delphi

       Delphi 2.0 是完备的工程设计系统,除提供了大量的可视化编程部件和简单方便的设计方法外,还备有功能强大的工程管理、窗口设计工具。 

1.5.1 创建多窗体工程项目 

       绝大多数的应用程序都用到不只一个窗口, Delphi

1.5.1.1 创建一个含有 About

     作为例子,我们先创建一个含主窗体和简单的 About

     在 Delphi

     选用主菜单的 File|New

     下面编程实现主窗体对 About 框的显示控制。很可能在设计时,两个窗体出现重叠, Form1

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end; 

        由于 Form1

        在 About

Form2.ShowModal;  

       再运行程序,除了与上述功能相同显示 About

1.5.1.2 指定自动创建窗体 

      上面我们简单地生成了一个含 About 框的双窗体应用程序,运行时,应用程序启动时将自动创建第二个窗体。窗体保持隐蔽状态,但仍然占用 Windows

       选用 Project|Options

       图示为 Delphi

       如果不需要自动创建窗体,使用箭头按钮把窗体移动到 Available Forms 列表框中。自动创建的窗体可以用 Show

Begin

EditForm := TeditForm.Create(Self);

EditForm.Open(OpenFileDialog.Filename);

EditForm.Visible := True;

End;

也即,必须使用 Create

1.5.2 使用工程管理器 Project Manager  

        当窗体的数目逐步增加时,跟踪窗体以及与之相连的库单元代码就变得比较烦琐。用 Delphi 1.5.2.1 工程文件的组成 

        工程 (project) 是整个应用程序的源文件集合,这样的文件一共有三种:

        1. 一个包含主程序部分的工程文件,用以驱动由 Delphi

        2. 一个或多个窗体文件,它们含有相应的库单元文件。窗体文件的扩展名是 .DFM

         3. Object Pascal

1.5.2.2 使用 Project Manager

        选用 View|Project Manager ,会调出 Project Manager 窗口。

        Project Manager

        Project Manager

1.5.3 使用窗体样板和对话框专家 

        在前文的例程中,我们创建了一个简单的 About

1.5.3.1 使用窗体样板创建窗体 

        创建一个新工程时, Delphi 为用户创建了一个新的空窗体。如果需要使用一个窗体样板,向工程中增加一个窗体。选用 File|New

1.5.3.2 存储自己的窗体样板 

        您可以在样板库中存储自己的窗体样板。首先创制一个窗体的样本,在窗体区域中单击鼠标的右键,可以调出窗体的加速菜单。选用 Add To Repository... ,将弹出对话框。

       在 Forms

       再次打开 New Items 对话框,您会发现您的窗体已经被存储成一个窗体样板。 

1.5.3.3 使用对话框专家 Dialog Expert 

       对话框样板呈现了友好界面的被保存对话框,而对话框专家却能根据用户提供的信息,智能地创建复杂的对话框。

       选用 File|New...

1.5.4 使用工程样板和应用专家 

        Delphi

1.5.4.1 使用工程样板 

        当您通过一个工程样板来开始一个工程时,除了空白工程样板外,都会被要求指定一个唯一的子目录即工程目录 Project Directory ,用来存储新的工程。如果您指定一个不存在的目录, Delphi

         选用 File|New ,在 New Items

1.5.4.2 使用应用专家 Application Expert 

        一个应用专家就是一个应用程序,它会依照您在一系列对话框中所设置的选项值来产生一个工程。

        如果您想在打开一个工程时,利用应用专家来取代工程样板而成为缺省值,则使用 File|New

Delphi 会要求您输入您的工程文件名及它存储的唯一目录,并提示您选择应用程序是否使用 MDI

[目录] [上一页] [下一页]