圖中 綠色的線是動態顯示
線的上面 沒有顯示出"值"
線會隨著時間而改變
請問一下!!!
我想加個功能
就是當滑鼠移到線上 會在表單某個地方 出現 => 滑鼠目前所在值XXX
請問~這要怎麼設計呢?!
麻煩各位前輩了!!!

編輯記錄

請提供圖，不然，沒有人看得懂您在問什麼。

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

圖已經出來了~
不好意思~~
請幫忙 解答一下!!!
感恩!~~

procedure TForm_Rep591.DBChart1AfterDraw(Sender: TObject);
Procedure DrawVerticalLine(ax,ay: Integer);
begin
with DBChart1, Canvas do begin
Pen.Color:= clGray;
Pen.Style:= psSolid;
Pen.Mode := pmBlack; //pmXor;
Pen.Width:= 1;
MoveTo(ax,ChartRect.Top - Height3D);
LineTo(ax,ChartRect.Bottom - Height3D);
Font.Size:= 7;
Font.Name:= '細明體';
Font.Color:= clBlack;
TextOut(ax-90,ay 4,SysUt.DayFormat(DM_Rep591.IBQ_D8001FORMDATE.AsString,
'/',U_VarDef.cdatedigit))
Font.Color:= clNavy;
TextOut(ax-26,ay 4,'成本:' DM_Rep591.IBQ_D8001GCOST.AsString);
end;
end;
var TmpX: Integer;
begin
with DM_Rep591 do
try
TmpX:= Series1.CalcXPosValue(Series1.XValue[IBQ_D8001.RecNo-1]);
if PtInRect(DBChart1.ChartRect,
Point(TmpX-DBChart1.Width3D,Round(DBChart1.Height/2)
DBChart1.Height3D))
then DrawVerticalLine(TmpX,0);
except
end;
end;

不知道你用的是什麼圖表工具，我這是DBChart的作法， Procedure DrawVerticalLine 是在圖表上畫一條y軸線條這個功能也是向站上前輩請教的，抱歉(我忘了是那一位)，你可以參考看看，希望對你有幫助

編輯記錄

因最近比較忙
所以現在才回文
不好意思
可以給我程式檔參考參考嗎?
才剛接觸delphi 沒多久~
謝謝

先自助而人助

P.D.版主所提供範例碼，已經足夠讓你解決問題了。

對不起，程式檔包含太多物件無法釋出，我將圖片貼上讓你參考，有關如何在dbchart上做出如圖的額外顯示，上面的程式碼已經是全部寫法，另外用滑鼠要判斷位置做出相對的反應其實並不太好弄，因為要計算很多數據，不如建議你如本圖方式，利用一個query，在query.onafterscroll 的事件上寫，先做出你想要的功能，再漸漸改到以mouse移動反應
procedure TDM_Rep591.IBQ_D8001AfterScroll(DataSet: TDataSet);
begin
Form_Rep591.DBChart1.Repaint;
end;

謝謝PD版主~~~
我會在努力~~^^