Ich versuche gerade ein TChart während der Laufzeit um eine Eigenschaft zu erweitern.
Das klappt auch und ich kann die Eigenschaft auch beschreiben. Aber beim Programmende gibt es eine wenig aussagekräftige
AV. Was mache ich falsch?
SeriesGroup ist ein einfacher Enum.
Delphi-Quellcode:
TCustomSeriesClass = class(TCustomSeries)
public
SeriesGroup: TSeriesGroup;
end;
procedure CreateSeries(const SeriesType: TCustomSeriesClass; const SeriesGroup: TSeriesGroup; const Name: string; const Color: Integer);
var
CustomSeries: TCustomSeriesClass;
begin
CustomSeries := TCustomSeriesClass(TAreaSeries.Create(FormMain.Chart1));
CustomSeries.Name := Name;
CustomSeries.SeriesGroup := SeriesGroup;
.......