我使用Tchart的LineSeries,請問y軸的座標標示除了例如10,20,30...等等 如要指定在某個標示值(如300)的旁邊加上標示地名(如高雄),不加其他元件可以做得到嗎.... 如果不行,使用Label的話,其位置如何與Y軸的座標標示位置關聯阿... 還有,如何單獨指定其中一個點的顏色啊(因為想要和線的顏色不同..) 以上問題知道任何一個的大哥大姊,煩請解答,趕著要,解多少算多少囉

使用 Series 的 AddY 即可。 例如:在 TChart 上加一個 Series1 為一個 TLineSeries， 以下是範例碼:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  this->Series1->Clear();      TStringList *nameList=new TStringList;
  for(int i=0;i<100;i  )  // 假設您要的名稱已存在一個 StringList 中
    nameList->Add(String("Test") IntToStr(i));      for(int i=0;i<100;i  )  // 在 Series 中使用 AddY 把資料及名稱加入 Chart 中
    this->Series1->AddY(i,nameList->Strings[i],clRed);      delete nameList;
}

沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

dllee版大: 小弟常常來看,終於有人回覆 感謝您熱心抽空答覆 您的範例小弟受教了,也記下來了 但是好像只能標識在X軸,實在不會舉一反三,請原諒小弟的笨拙 是想要標識在Y軸,該如何做呢 而且是希望在Y軸300旁邊放上高雄兩個字(300也要顯示) 可以嗎? 好像很麻煩.對不起喔...

你可以把 TLineSeries 改成 THorizBarSeries 也就是水平的線條圖， 由 AddY() 改成 AddX() 即可

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  this->Series1->Clear();      TStringList *nameList=new TStringList;
  for(int i=0;i<100;i  )  // 假設您要的名稱已存在一個 StringList 中
    nameList->Add(String("Test") IntToStr(i));      for(int i=0;i<100;i  )  // 在 Series 中使用 AddX 把資料及名稱加入 Chart 中
    this->Series1->AddX(i,nameList->Strings[i],clRed);      delete nameList;
}

沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

dllee版大您好: 再次謝謝您費神.. 您的意思小弟懂,可是那是長條圖.非小弟所要的功能 但還是謝謝您,就是有像您這樣熱心助人的高手, 我們這些新手才有繼續前進的勇氣..謝謝您.. 還有小弟上面有關單獨指定其中一個點的顏色的問題,是不是另開一個主題發問,這樣對要回答那個問題的人較公平啊.. 否則如果結案,那第二個問題就無解了..可以這樣做嗎?

要每一個棒棒不一樣顏色，就把程式中的 clRed 改成您要的顏色即可，如同 Label 可以建一個 ColorArray 依序指定。 老實說，我實在不懂您要的圖到底是什麼? 如果可以的話，請用畫的畫一張來看看， 如果您要的本來就是 TChart 作不到的功能，那我說半天也是白搭...  真的是這樣時，也只有請您去找其他的 Chart 元件或是自行開發以滿足需求。    沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

對不起,是我沒說清楚 其實我要的圖基本上並不難,只是時間與距離之物體移動路線圖 只是細節部份,可能如您所說,Tchart未提供該功能 茲將圖附上,請參考 希望在左邊除了座標值外,能在各座標值旁加上其他文字(如屏東,彰化) 也希望某個點與線的顏色能夠不同(也可說是要讓同一條線上某點和其他點的顏色不同),以資區分 如真沒此功能..就只好結案了..還是謝謝您囉...

對不起.補充一下 是要隨那個"想要顏色不同的點"出現的位置,而加屏東,彰化等字

表單內只有一個 TChart 元件，Chart 內有 Series1,2 分別為 TLineSeries, THorizBarSeries

object Form1: TForm1
  Left = 116
  Top = 225
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 688
    Height = 446
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    LeftWall.Brush.Color = clWhite
    Title.Text.Strings = (
      'TChart')
    BottomAxis.LabelsAngle = 270
    BottomAxis.LabelsOnAxis = False
    BottomAxis.TickOnLabelsOnly = False
    BottomAxis.Title.Caption = '時間'
    LeftAxis.LabelsSeparation = 0
    LeftAxis.Title.Angle = 0
    LeftAxis.Title.Caption = '距離'
    Legend.TextStyle = ltsRightValue
    Legend.Visible = False
    RightAxis.Automatic = False
    RightAxis.AutomaticMaximum = False
    RightAxis.AutomaticMinimum = False
    RightAxis.Maximum = 1128
    RightAxis.Visible = False
    TopAxis.Visible = False
    View3D = False
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Series1: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      VertAxis = aRightAxis
      Pointer.InflateMargins = True
      Pointer.Style = psCircle
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series2: THorizBarSeries
      ColorEachPoint = True
      HorizAxis = aTopAxis
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGreen
      BarWidthPercent = 1
      MultiBar = mbStacked100
      XValues.DateTime = False
      XValues.Name = 'Bar'
      XValues.Multiplier = 1
      XValues.Order = loNone
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
  end
end

在建構元中直接產生 Chart 內容

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  TColor colorArray[16]={clBlack, clMaroon, clGreen, clOlive, clNavy,
                         clPurple, clTeal, clGray, clSilver, clRed,
                         clLime, clYellow, clBlue, clFuchsia, clAqua,
                         clWhite};
  this->Series1->Clear();
  this->Series2->Clear();      TStringList *nameList=new TStringList;
  for(int i=0;i<21;i++)  // 假設您要的名稱已存在一個 StringList 中
  {
    switch(i)
    {
      case 15:
        nameList->Add("彰化"+IntToStr(i*10));
        break;
      case 8:
        nameList->Add("屏東"+IntToStr(i*10));
        break;
      default:
        nameList->Add(IntToStr(i*10));
        break;
    }
  }      for(int i=0;i<21;i++)  // 在 Series 中使用 AddY 把資料及名稱加入 Chart 中
  {
    if(i==9)
      this->Series1->AddY((i-1)*10,i,colorArray[(i-1)]);
    else if(i==16)
      this->Series1->AddY((i-1)*10,i,colorArray[(i-1)]);
    else
      this->Series1->AddY(i*10,i,colorArray[i]);
    this->Series2->AddY(i,nameList->Strings[i],colorArray[i]);
  }
  this->Chart1->RightAxis->Maximum=200;
  this->Chart1->RightAxis->Minimum=0;
  delete nameList;
}
//---------------------------------------------------------------------------

您應該再修改一下就可以了 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

dllee版大: 大恩不再言謝了(難以形容),小弟覺得您使用BCB簡直是隨心所欲啊.. 這就是小弟要的東東了,,雖然要改自己的程式還要下點功夫.. 但師父引進門,修行看各人了.. 最後還一個小問題,,上面那麼多屬性 您是要小弟在Object Inspector 內直接設定 還是說把那些屬性的程式碼貼在哪裡就可以直接用啊? 真的是新手,請勿見笑.. 先把它給結案了..小弟會記得您的.......

關於屬性設定，我貼的那些是由表單來的，您可以在 BCB 中開一個新的 Application，在 Form1 表單按右鍵，在選單中選 View as Text 應該會看到

object Form1: TForm1
  Left = 364
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end

接著，把之前的文章中表單的敘述複製，貼入整個檔案(取代掉原來的)， 在檔案中按右鍵，由選單中選 View as Form 或按 Alt F12，您就會看到表單內的 Chart 及 Chart 內的兩個圖表及其設定。 (因為這個方法算是偷改表單，IDE 並不知情，最好此時將整個 Chart 點選，按 Ctrl X 剪下後再按 Ctrl V 貼上，如此，在 Unit1.h 內才會出現正常的元件宣告) 其實，對於 TChart 我還不是很會用，只知道它很好用，對於它 AddX, AddY 到底會有什麼效果，也都是一試再試，要改成您最後想要的可能還要花一些功夫，而在我的設定中，您可以看到如何試著用多個 Series 去組合出一個複雜的圖表。 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

dllee版大: 從您這兒真挖了不少寶貴的東東,這是書上找不到的.. 內心非常感動..有朝一日,希望也有能力和您一樣幫助別人 祝您 順心快樂.... lgm55 敬上