想請問一下.... 我自己一張圖畫出分析的chart,chart中xy軸的值,是我自己設定的,如何直接用滑鼠在chart中點選,而取得那一點當初自己設的相對應的xy座標?? 謝~~ 初學者~初學者~初學者~

Hi elisa,    Sorry !! 我只會 Delphi，你試試以下兩個方法，不知是否可行？

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
  tmpX,tmpY : Double;
begin
  if PtInRect( Chart1.ChartRect, Point(X-Chart1.Width3D,Y Chart1.Height3D)) then
    begin
      With Series1 do
        begin
          GetCursorValues(tmpX,tmpY);  { <-- get values under mouse cursor }
          Label1.Caption:=GetVertAxis.LabelValue(tmpY) 
                          ' ' 
                          GetHorizAxis.LabelValue(tmpX);
        end;
    end;
end;    procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    TmpX,TmpY : Double;
begin
    TmpX := TChartseries(Sender).YValue[ValueIndex];
    TmpY := TChartseries(Sender).XValue[ValueIndex];
    Edit1.Text := '('   FloatToStr(TmpY)   ','   FloatToStr(TmpX)   ')';
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi Fishman 謝謝你囉.....目前正試著把他轉成BCB...希望能成功....