德尔福：以两种不同的形式显示相同的图形

Question

我想在两种不同的形式上显示相同的图形（TChart）。首先有一个小版本，但我希望用户能够点击一个按钮来显示更大版本的图形。

Answer 1

您可能有两个不同的控件，您可以在其中提供相同的一组数据。 或者您可以尝试在新窗体上设置控件的父级。

TSmallForm = class 
... 
procedure TSmallForm.Button1Click(sender : TObject) 
var 
    F : TForm; 
begin 
    F := TForm.Create; 
    try 
    ChartComponent.Parent := F; 
    ChartComponent.Align := alClient; 
    F.ShowModal; 
    finally 
    F.Free; 
    end; 
end;