Question

delphi 画线

我的意思是输入坐标，然后在坐标上出现一个点，然后很多点组成一个曲线，这样可不可以啊？？
高手来吧！！！！！！！！！！！！！

Answer 1

你的意思是不是进行曲线拟合呀？
如果只是曲线的话：你可以用窗口的canvas.PolyBezier或是CHART控件来画！
canvas画线简单，chart控件可带出不同样式的曲线。
这两种方法的使用方法都很简单。自带的帮助里有很完善的说明。呵呵.
用GDI+画曲线也比较方便，可是我不太会，呵呵！

从网上下了一段用PolyBezier的Code，希望有用：
在Delph下调用PolyBezier();
procedure TForm1.Button1Click(Sender: TObject);
var point:array[0..6] of Tpoint;
h:HDC;
begin
h:=getdc(form1.handle);
point[0].x:=25; point[0].y:=25;
point[1].x:=35; point[1].y:=170;
point[2].x:=130;point[2].y:=120;
point[3].x:=150;point[3].y:=150;
point[4].x:=170;point[4].y:=280;
point[5].x:=250;point[5].y:=115;
point[6].x:=250;point[6].y:=225;
polybezier(h,point,7);
end;

wish you Luck!

Answer 2

Canvas.pixels[100,100]:=clred;
//在画布的100,100上画个1像素的红点。

放个Image1到界面上，执行
Image1.Canvas.pixels[100,100]:=clred;
试试吧。

Answer 3

嗯 较麻烦
在论坛上找吧