很菜的问题(50分)

怎样在delphi中画带箭头的线
就象坐标轴的X,Y轴那种?

用线连吧

up

说的详细点,是怎样的线?估计用canvas就可以了

[blue]现成的没有，只有down别人的控件了，不然就线连！[/blue]

http://ycrjq.y365.com/EForumLibD6S.rar
这个控件可以解决您的问题。

自己画吧，只需要计算一下起点和终点的坐标然后用moveto和lineto画线就行了。

同意楼上的，这样的问题还是自己解决好，

或者用lmd控件，里面有些意想不到效果！

自己画呀，一条X轴。可以适当调整一下。画直线，在画两条斜线段。
with canvas do
moveto(0,100);
lineto(100,100);
lineto(98,97);
moveto(100,100);
lineto(98,103);
end;

是呀，自己画，不难的

var
x1,y1:real;
begin
image1.canvas.Rectangle(0,0,width,height);
x1:=0;
y1:=(form1.image1.Left+form1.Image1.Width)/4;
image1.Canvas.pen.Color:=clRed;
image1.canvas.pen.style:=psDash;

image1.Canvas.MoveTo(0,trunc(y1));
image1.canvas.lineto(image1.width,trunc(y1));

image1.canvas.moveto(image1.width div 2,0);
image1.canvas.lineto(image1.width div 2,image1.height);

image1.canvas.pen.style:=psSolid;

image1.canvas.MoveTo(image1.width-15,trunc(y1)-7);
image1.canvas.lineto(image1.width,trunc(y1));
image1.canvas.MoveTo(image1.width-15,trunc(y1)+7);
image1.canvas.lineto(image1.width,trunc(y1));

image1.canvas.MoveTo((image1.width div 2)-7,15);
image1.canvas.lineto(image1.width div 2,0);
image1.canvas.MoveTo((image1.width div 2)+7,15);
image1.canvas.lineto(image1.width div 2,0);
end;