TChart und TLineseries ändern

[Jens Schumann]

So

Delphi-Quellcode:

type 
  TdddLineSeries = class(TLineSeries) 
  private 
    { Private declarations } 
    FData : TStrings; 
    procedure DrawDataChange(Sender : TObject);
  protected 
    { Protected declarations } 
  public 
    { Public declarations } 
    constructor Create(AOwner: TComponent); override; 
    destructor Destroy; override; 
    property DrawData : TStrings read FData write FData; // von private hierher geschoben
  published 
    { Published declarations } 
  end; 

implementation 

constructor TdddLineSeries.Create(AOwner: TComponent); 
begin 
  inherited Create(Aowner); 
  FData := TStringlist.Create; 
  TStringlist(FData).OnChange:=DrawDataChange;
end; 

Destructor TdddLineSeries.Destroy; 
begin 
  inherited; 
  FreeAndNil(FData); 
end; 

procedure TdddLineSeries.DrawDataChange(Sender : TObject);
begin
  // Hier auf die Änderungen reagieren
end;