我在畫圖時，因為chart中的線很短Chart1.Series[0].Delete(0);所以我就把Delete(0)給刪掉，結果卻造成線到最後時不會更新，我要怎麼做圖才會自動更新呢?另外在圖右手的chart我要怎麼拿掉呢??謝謝各位高手囉         新手上路

------
新手上路

Hi jchuang,    Question 1 : 在該 Series 的 OnAfterAdd 事件加入以下指令碼試試看是否可以符合你的需要

procedure TForm1.Series1AfterAdd(Sender: TChartSeries;
  ValueIndex: Integer);
begin
    With Sender.GetHorizAxis do
      Begin
        Automatic := False;
        Minimum := 0;
        Maximum := Sender.XValues.MaxValue;
        Minimum := Maximum - 5000; // Depend on your request range
    end;
end;

Question 2 :

procedure TForm1.Button3Click(Sender: TObject);
begin
  Chart1.Legend.Visible := False;
end;

或是將 Chart 中的 Legend Visible 屬性設為 False 發表人 -

------
Fishman

對不起，問個笨問題，因為我找不到Series 的 OnAfterAdd 在那裡?? 是在chart裡面的OnAfterDraw嗎?? 另外 With Sender.GetHorizAxis do 是什麼意思?? 新手上路

------
新手上路

Hi jchuang,    1. 先按下 Shift + Alt + F11 即可出現 Object Tree View，點選到該 chart 下即會出現 Series，選到你要的 Series 後，再按 F11 回到 Object Inspector，在 Enents Tab 即有該事件。    2.

procedure TForm1.Series1AfterAdd(Sender: TChartSeries;
  ValueIndex: Integer);
begin
    With Sender.GetHorizAxis do
      Begin
        Automatic := False;
        Minimum := 0;
        Maximum := Sender.XValues.MaxValue;
        Minimum := Maximum - 5000; // Depend on your request range
    end;
end;    相當於    procedure TForm1.Series1AfterAdd(Sender: TChartSeries;
  ValueIndex: Integer);
begin
    Sender.GetHorizAxis.Automatic := False;
    Sender.GetHorizAxis.Minimum := 0;
    Sender.GetHorizAxis.Maximum := Sender.XValues.MaxValue;
    Sender.GetHorizAxis.Minimum := Sender.GetHorizAxis.Maximum - 5000; // Depend on your request range
end;

建議你看看 Delphi 的 Help，就能更深入了解 With 的用法 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman