分離円グラフTCHARTを使用します

https://www.cnblogs.com/gaodu2003/archive/2009/06/18/1505720.html

ユニットUnit1は、

インタフェース

......
タイプ
  TForm1 =クラス（TFormは）
    グラフ1：TChart。
    シリーズ1：TPieSeries。
......
VAR
  をForm1：TForm1;
  PS：TPieSeries。

実装

{$ Rの*の.DFM}

手順TForm1.FormCreate（送信者：TObjectを）;
開始
  ps.Freeを。
  PS：= TPieSeries.Create（自己）。
  ps.Clear;
  ps.Repaint;

  ps.CustomXRadius：= 70;
  ps.CustomYRadius：= 70;
  ps.Marks.Arrow.Visible：= falseは、
  ps.Marks.ArrowLength：= -50;
  ps.Marks.Transparent：=真;
  ps.Marks.Frame。偽=;可視
  ps.Marks.Style：= smsLabel;
  ps.ParentChart：=グラフ1;
  ps.AddPie（10、 '第一部分'、clRed）;
  ps.AddPie（20 'は第二部'、clGreen、です）。
  ps.AddPie（5、 '部分'、clBlue）;
END;

手順TForm1.Button1Click（送信者：TObjectを）;
開始
  MoveDesPart（1）。
終わり;

手順TForm1.Button2Click（送信者：TObjectを）;
開始
  MoveDesPart（2）。
終わり;

手順TForm1.Button3Click（送信者：TObjectを）;
開始
  MoveDesPart（3）。
終わり;

手順TForm1.MoveDesPart（I：整数）;
VaRの
  J：整数;
開始
  jについて：= 1〜3は、DO
    開始
    jは=私は、場合
      始める
      ps.ExplodedSlice.Value [J-1]：= 10;
      終了
    他
      始める
      ps.ExplodedSlice.Value [J-1]：= 0;
      終わり;
    終わり;
終わり;

終わり。

ユニットUnit1は、

インタフェース

......
タイプ
  TForm1 =クラス（TFormは）
    グラフ1：TChart。
    シリーズ1：TPieSeries。
......
VAR
  をForm1：TForm1;
  PS：TPieSeries。

実装

{$ Rの*の.DFM}

手順TForm1.FormCreate（送信者：TObjectを）;
開始
  ps.Freeを。
  PS：= TPieSeries.Create（自己）。
  ps.Clear;
  ps.Repaint;

  ps.CustomXRadius：= 70;
  ps.CustomYRadius：= 70;
  ps.Marks.Arrow.Visible：= falseは、
  ps.Marks.ArrowLength：= -50;
  ps.Marks.Transparent：=真;
  ps.Marks.Frame。偽=;可視
  ps.Marks.Style：= smsLabel;
  ps.ParentChart：=グラフ1;
  ps.AddPie（10、 '第一部分'、clRed）;
  ps.AddPie（20 'は第二部'、clGreen、です）。
  ps.AddPie（5、 '部分'、clBlue）;
END;

手順TForm1.Button1Click（送信者：TObjectを）;
開始
  MoveDesPart（1）。
終わり;

手順TForm1.Button2Click（送信者：TObjectを）;
開始
  MoveDesPart（2）。
終わり;

手順TForm1.Button3Click（送信者：TObjectを）;
開始
  MoveDesPart（3）。
終わり;

手順TForm1.MoveDesPart（I：整数）;
VaRの
  J：整数;
開始
  jについて：= 1〜3は、DO
    開始
    jは=私は、場合
      始める
      ps.ExplodedSlice.Value [J-1]：= 10;
      終了
    他
      始める
      ps.ExplodedSlice.Value [J-1]：= 0;
      終わり;
    終わり;
終わり;

終わり。