圖中有二個Series 分別 名稱為 PtLine及PtBar 我想讓滑鼠停留在 Ptline時 顯示 LeftAxis的數據 而不是RightAxis的數據 有辦法做攸改嗎 程式內容如下： 要如何做修改呢 var AValueIndex:Integer; //PaintX,PaintY:Integer; begin AValueIndex:=Ptline.GetCursorValueIndex; //Button1.Caption:=IntToStr(X)+'+'+IntToStr(Y)+'+'+IntToStr(AValueIndex); if AValueIndex>-1 then begin //IsHit:=True; //PaintX:=Series1.CalcXPos(AValueIndex); //PaintY:=Series1.CalcYPos(AValueIndex); Lbl_Ptpoint.Visible:=True; Lbl_Ptpoint.Top:=Y+20; Lbl_Ptpoint.Left:=X-10; Lbl_Ptpoint.Caption:=FloatToStr(PtLine.YValue[AValueIndex]); end else begin //IsHit:=False; Lbl_Ptpoint.Visible:=False; end; //HitValueIndex:=AValueIndex;

Hi seedbcc,    參考一下 C:\Program Files\Borland\Delphi7\Demos\TeeChart\teedemo.dpr 中的 CrossHairForm 上的 Chart1.OnMouseMove 事件     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

請多查閱Delphi Help，Help中幾乎找的到。 還有Code請用〔Ｃｏｄｅ〕〔／ｃｏｄｅ〕包起來美觀好看。    

TChartAxis.CalcPosPoint
TChartAxis    function CalcPosPoint(Value: Integer): Double;    Unit
TeEngine    Description
This function returns the corresponding value of a Screen position. The Screen position must be between Axis limits.    See the user guide for more information.    procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  AValueIndex:Integer;
begin
  AValueIndex:=Series2.GetCursorValueIndex;
  Button1.Caption:=FloatToStr(Chart1.RightAxis.CalcPosPoint(Y));
  Button2.Caption:=FloatToStr(Chart1.LeftAxis.CalcPosPoint(Y));    end;    

感恩啦！ 不知道有沒有關於chart的中文書籍 小弟對chart 很陌生 加上要看english help 更不懂