Question

在delphi窗口中划线时,怎么改变线宽和线的颜色?

我的划线代码如下：procedure TForm1.FormClick(Sender: TObject);
begin
CANVAS.MOVETO(0,0);
CANVAS.LINETO(100,100);
end;

Answer 1

CANVAS.MOVETO(0,0);
Canvas.Pen.Style :=psSolid;//样式
Canvas.Pen.Color :=clRed ;//颜色
Canvas.Pen.Width := 5;//宽度
CANVAS.LINETO(100,100);

追问

你是不是‘骑鹤下扬州’？再帮我解决个问题摆：怎么让线出现后接着就消失/?求代码，谢谢

追答

CANVAS.MOVETO(0,0);
Canvas.Pen.Color :=clBtnFace ;
CANVAS.LINETO(100,100);

是我，你QQ上说就可以

Answer 2

设置Pen属性的Color属性和Width属性.....多去查帮助不然就就问谷歌

Canvas.Pen.Color := clRed;

Canvas.Pen.Width := 3;

追问

谢谢，英文的delphi帮助看不懂。你能不能再帮我解决一个问题：怎么让出现线后，接着线就消失，该怎么做到呢？？、

Answer 3

Canvas.Pen.Width := 1这个控制线宽。。Canvas.Pen.Color这个控制颜色

追问

xiexie