TChart fortlaufende anzeige

[v2afrank]

So bekommst Du es hin:

Delphi-Quellcode:

procedure TMakrofenster.Series1AfterAdd(Sender: TChartSeries;
  ValueIndex: Integer);

var
 step:Double;
const 
 Anzahlsekunden=60;
  begin

    step:=DateTimeStep[dtOnesecond]*Anzahlsekunden;
     With Sender.GetHorizAxis do  { <-- with the Horizontal Axis... }
     Begin
      Automatic := False;
      //always show the last time
      Maximum := Sender.XValues.MaxValue;
      // show only last desired interval
      Minimum := Maximum - step;
     end;
     // Delete all "invisible" points
     While (Sender.Count>0) and
      (Sender.XValues[0] < Sender.GetHorizAxis.Minimum) do
      Sender.Delete(0);

end;