新手上路，第一问

Question

ft,参考书出错了,ft
谢谢了
还有,请问一下,怎么样才能绘制出一条内凹的直线(三维的),用什么组件?

Answer 1

画三条线!
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clgray;
Canvas.MoveTo(x,y);
Canvas.lineTo(x+100,y);
Canvas.Pen.Color:=clBtnFace;
Canvas.MoveTo(x,y+1);
Canvas.lineTo(x+100,y+1);
Canvas.Pen.Color:=clwhite;
Canvas.MoveTo(x,y+2);
Canvas.lineTo(x+100,y+2);

Answer 2

也可以直接用Bevel控件!Addtional->Bevel!设置Shape属性和Height!