Komponente zur Laufzeit um Eigenschaft erweitern, Fehler bei Programmende

[DieDolly]

Zitat von hoika:

Hallo,

Zitat:

initialisiert?

CustomSeries := TCustomSeriesClass(TAreaSeries.Create(FormMain.Chart1));

Oha, jetzt sehe ich da ja den harten Type Cast.
Das geht glaube ich so nicht ...

Müsste es nicht so heißen?

CustomSeries := TCustomSeriesClass.Create(FormMain.Chart1);

Wenn man nur TCustomSeriesClass.Create nimmt stzatt TAreaSeries, dann bekommt man nicht den Chart den man erstellen möchte.

Zitat von Gausi:

Ich selbst habe damit noch nicht gearbeitet, aber wäre das nicht ein Fall für eine Helferklasse bzw. class helper, anstatt eine neue Klasse abzuleiten?

Wenn ich das Konzept der class helper richtig verstanden habe, ist das genau für das da, was du anscheinend erreichen willst ...

Die Series haben viele Properties. Aber eine fehlt mir und genau die möchte ich hinzufügen.

So?

Delphi-Quellcode:

 TCustomSeriesClass = class helper for TCustomSeries
 public
  class var SeriesGroup: TSeriesGroup;
 end;

Und überall dann nur noch die Chart-eigene Klasse TCustomSeries verwenden?