Chart Serie zur Laufzeit erstellen

[marabu]

Hi René,

Zitat von renekr:

Es ist immer wieder eine Freude Tips von dir zu bekommen.

vielen Dank für die Blumen.

Zitat von renekr:

Gibt es eigentlich ne möglichkeit,das ich zb. alle Eigenschaften von einem Cahrt auf Form1 zu Chart 1 auf Form 2 zb. übernehmen ohne alle manuell zu setzen.

Eigenschaften von Chart1 auf Chart2 übertragen geht so:

Chart2.Assign(Chart1);

Zitat von renekr:

Kannst du mir noch sagen wie ich die "ExplodeBiggest = 30" Eigenschaft setzen kann?

Das ist eine Eigenschaft von TPieSeries:

Delphi-Quellcode:

procedure TDemoForm.AddButtonClick(Sender: TObject);
var
  ps: TPieSeries;
begin
{
  while Chart1.SeriesCount > 0 do
    Chart1.Series[0].Free;
}
  ps := TPieSeries.Create(self);
  with ps do
  begin
    ps.ParentChart := Chart1;
    ps.AddPie(50 + Random(10), Chr(Ord('A') + ps.Count), clRed);
    ps.AddPie(50 + Random(10), Chr(Ord('A') + ps.Count), clBlue);
    ps.AddPie(50 + Random(10), Chr(Ord('A') + ps.Count), clGreen);
    ps.ExplodeBiggest := 30;
  end;
end;

Freundliche Grüße vom marabu