procedure Tfrm_Main.ShowForm(AFormClass:TFormClass);
begin
with AFormClass.Create(Self) do
try
ShowModal;  // 阻塞或者模态窗口，只有你把当前窗口关闭后，才能去操作父亲窗口。
finally
Free;
end;
end;

//这个例子打开有异常，提示单元chart 引用本身，

因为工程命名为program Chart;和所用的控件类名称 Tchart冲突了，

将工程名改成program MyChart; 编译即可。

 1 implementation
 2 uses printers;
 3 {$R *.dfm}
 4 
 5 procedure Tfrm_Print.btn_PrintClick(Sender: TObject);
 6 var h,w:longint;
 7 begin
 8   Screen.Cursor := crHourGlass;
 9   try
10     Printer.BeginDoc;
11     try
12       h:=Printer.PageHeight;
13       w:=Printer.PageWidth;
14 
15       Chart1.PrintPartial(  Rect(  w div 10,
16                                    h div 3 ,
17                                    w - (w div 10),
18                                    h - (h div 10) ));
19 
20       Printer.EndDoc;
21     except
22       on Exception do
23       begin
24         Printer.Abort;
25         Printer.EndDoc;
26         raise;
27       end;
28     end;
29   finally
30     Screen.Cursor:=crDefault;
31   end;
32 end;

第1章介绍了Delphi数据库开发工具，包括BDE Administrator、SQL Explorer、SQL 
Monitor和Database Desktop等数据库工具的使用。还介绍了SQL语言，包括通用SQL查
询语句、更新查询语句、表之间的连接和数据定义语言，并且着重说明了如何在Delphi中
使用SQL语句创建查询。
第2章首先介绍Delphi文件管理的基本概念和标准过程/函数，并提供了一个记录文件
的应用实例，最后提供了一个综合应用Delphi文件管理功能的文件管理程序实例。
第3章通过“学生名册管理系统”的开发介绍了如何使用DAO技术来设计数据库应
用程序。
第4章介绍了Delphi支持的4种数据交换方式，即剪贴板、动态数据交换(DDE)、对
象连接与嵌入(OLE)，以及动态连接库(DLLs)，并讨论了如何利用这4种方式实现应用程
序间的数据交换。
第5章介绍了报表和图表，从QReport组件开始讲述了报表的概念、实现的主要功能，
以及创建报表的方法，还通过一个具体的示例程序说明了如何在Delphi中处理图表。
第6章的实例是一个投递邮件处理系统，该实例能够根据邮件投递人提供的资料管理
邮件系统。
第7章介绍了书店租赁管理系统的开发过程，从中读者可学习如何尽可能节省人力，
自动地完成数据的更新操作。
第8章介绍了基于数据库的闹铃程序设计，该实例的特点在于程序界面的背景和程序
的声音文件均存储在数据库中，其中涉及到3种数据库存储方式，即简单数据存储(如字符
串和整型数等)、图像数据存储和声音文件存储。
附录A介绍了SQL查询语言。
附录B列出了Delphi中常用组件及其属性、方法和事件。
附录C中介绍了在示例中未涉及的有关DAO技术。