德爾福：以兩種不同的形式顯示相同的圖形

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;