主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制

\Delphi 6数据库开发典型实例\图表的绘制

1、在主窗体里面打开子窗体：ShowForm(Tfrm_Print);

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

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

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

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

2、打印饼图；

 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;

打印饼图