全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2062
推到 Plurk!
推到 Facebook!

如何做到像yahoo k線圖那樣的功能呢?(使用teechart)

缺席
GrandRURU
站務副站長


發表:240
回覆:1680
積分:1874
註冊:2005-06-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-05-02 17:52:19 IP:59.120.xxx.xxx 未訂閱
目前我使用teechart,已經可以畫出k線圖了,不過…和yahoo技術線圖落差還蠻大的

在ktop中有爬文看到在chart中看到座標,如下圖


主要是顯示1.x、y軸值,2.k棒的dataset指標
code如下:

[code delphi]
procedure TForm1.DBChart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
x1,y1,x2,y2:integer;xv,yv:double;
SeriesIndex: Integer;
begin
x1:=dbchart1.GetCursorPos.X;
y1:=dbchart1.GetCursorpos.y;
xv:=dbchart1.BottomAxis.CalcPosPoint(x1);
yv:=dbchart1.LeftAxis.CalcPosPoint(y1);
x2:=dbchart1.BottomAxis.PosAxis;
y2:=dbchart1.LeftAxis.PosAxis;
dbchart1.Repaint;
dbchart1.Canvas.TextOut(y2,y1,format('%7.2f',[yv]));
dbchart1.Canvas.TextOut(x1,x2,format('%7.2f',[xv]));

SeriesIndex := Series2.Clicked(X, Y);
DBChart1.ShowHint := SeriesIndex <> -1;
if DBChart1.ShowHint then
begin
ADODataSet1.RecNo := SeriesIndex 1; { this may need to be SeriesIndex 1 }
DBChart1.Hint := ADODataSet1.FieldByName('最高價').AsString;
end;
end;
[/code]


目前要接觸到k棒才會做dataset選擇動作
不知道不能像yahoo那樣偵測y軸的k棒及顯示十字線

還請各位大大幫忙一下,感謝!

編輯記錄
GrandRURU 重新編輯於 2011-05-02 03:53:48, 註解 無‧
系統時間:2024-04-27 11:58:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!