最简单的问题，马上给分(50分)

dcs_dcs · 2006-08-28

我想在Chart1控件上画曲线，比方说把三个点A(20,30),B(50,100),C(80,160)
这样三个点用曲线连起来，应该如何写呢。最好完成后会出现三个小黑点表示A,B,C
谢谢

冰力不足 · 2006-08-28

很简单的问题? 关键是曲线要有什么要求如果1和2点用一个圆定位 2和3点用一个圆这样很简单如果要用到象股票那样的恐怕难度

大富翁有篇曲线拟合的代码楼主可研究研究

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1685785

dcs_dcs · 2006-08-28

就是用直线把两点连接起来就行了啊。。。
三个点有两条直线啊

zywcd · 2006-08-28

我觉得可以使用这样的方法。你使用两条series,一条显示曲线，一条显示点，
先加入曲线
Series1: TFastLineSeries;
Series2: TPointSeries
下面绘制曲线和点
series1.AddXY(20,30);
series1.AddXY(50,100);
series1.AddXY(80,160);
series2.AddXY(20,30);
series2.AddXY(50,100);
series2.AddXY(80,160);

然后就是你要的效果

dcs_dcs · 2006-08-28

TFastLineSeries;
TPointSeries;

这两个类包含在哪个单元里啊。。

冰力不足 · 2006-08-28

Form1.Canvas.MoveTo(20,30);
Form1.Canvas.LineTo(50,100);
Form1.Canvas.LineTo(80,160);

搞掂

zywcd · 2006-08-28

你放置一个chart ,预先建立两个这样的series就可以。
应该在 Series单元。

bbswing · 2006-08-28

var
ptloc:array[0..2] of TPoint;
i,rad:integer;
begin
ptloc[0]:=Point(20,30);
ptloc[1]:=Point(50,100);
ptloc[2]:=Point(80,160);
rad:=5;
with Canvas do
begin
Brush.Color:=clBlack;
Pen.Color:=clRed;
{
MoveTo(20,30);
LineTo(50,100);
LineTo(80,160);
}
Polyline(ptloc);
for i:=0 to high(ptloc) do
begin
Ellipse(ptloc.X-rad,ptloc.Y-rad,ptloc.X+rad,ptloc.Y+rad);
end;
end;

冰力不足 · 2006-08-28

Form1.Canvas.MoveTo(20,30);
Form1.Canvas.LineTo(50,100);
Form1.Canvas.LineTo(80,160);
Form1.Canvas.Ellipse(18,28,22,32);
Form1.Canvas.Ellipse(48,98,52,102);
Form1.Canvas.Ellipse(78,158,82,162);

我的北斗三星阵哈哈

dcs_dcs · 2006-08-28

接受答案了.

冰力不足 · 2006-08-28

教学相长回答楼主的问题从bbswing学到一招算是有收获分给他吧

最简单的问题，马上给分(50分)

dcs_dcs

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

dcs_dcs

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

dcs_dcs

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

bbswing

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

dcs_dcs

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

Similar threads