标签：
\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;
主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制
标签：
原文地址：http://www.cnblogs.com/rogge7/p/4463081.html
