Я раньше делал так:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(t);
Chart1.Series[0].AddXY(t, random(100));
if t > 5 then
Chart1.Series[0].Delete(0);
end;
но сейчас этот вариант не годится, так как необходимо иметь возможность прокрутки чарта после окончания работы программы, а delete ведь все стирает =(((
Такой вот вариант тоже не катит
//...
chart1.MaxPointsPerPage := 5;
// ...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(t);
Chart1.Series[0].AddXY(t, random(100));
if t > 5 then chart1.NextPage;
end;
Я так думаю какое-нибудь свойство надо поменять типа autoscroll ... вот только какое ?)