讓滑鼠停留在 Ptline時 顯示 LeftAxis的數據,而不是RightAxis的數據 |
答題得分者是:StrongLemon
|
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
圖中有二個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;
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
|
StrongLemon
高階會員 發表:10 回覆:166 積分:105 註冊:2004-04-18 發送簡訊給我 |
請多查閱Delphi Help,Help中幾乎找的到。
還有Code請用〔Code〕〔/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; |
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |