下面有关DBChart的操作什么地方出问题了？

Question

我的目的是把当前的DBChart显示到一个全屏幕的窗体中，可是结果却是Series的值复制过来了，但是柱状图并没有复制过来。
var
  ViewFrm:TForm;
  ViewChart:TDBChart;
  ViewSeries:TChartSeries;
begin
  ViewFrm:=TForm.Create(self);
  ViewChart:=TDBChart.Create(self);
  ViewSeries:=TChartSeries.Create(self);
try
  with ViewFrm do
    begin
      Top:=0;
      Height:=0;
      Width:=screen.Width;
      Height:=screen.Height;
      WindowState:=wsMaximized;
    end;
  ViewSeries.Assign(DBChart1.Series[0]);
  with ViewChart do
    begin
      Assign(DBChart1);
      AddSeries(ViewSeries);
      Parent:=ViewFrm;
      Top:=0;
      Left:=0;
      Align:=alClient;
    end; 
  ViewFrm.ShowModal;
finally
  viewseries.Free;
  viewchart.Free;
  viewfrm.Free;
end;

Answer 1

不可能的，tdbchart参照的是TForm,并非screen,所以只要设TDBChart的align为client,然后设Tform为全屏就可以了