本文整理自网络，侵删。
怎样用image 中的canvas画图，步骤是什么，只画几个简单的线条就可以了。（我是新手，请指导得详细一些。）
---------回复--------------
Canvas.Pen.Color设置颜色
Canvas.Pen.Width设置宽度
Canvas.Pen.Style设置线型
Canvas.MoveTo设置线起点
Canvas.LineTo设置线终点
---------回复--------------
var
Form1: TForm1;
pt:tpoint;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Canvas.MoveTo(pt.X,pt.Y);
Image1.Canvas.LineTo(x,y);
pt.X:=x;
pt.Y:=y;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pt.x:=x;
pt.Y:=y;
end; 相关阅读 >>
Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法
Delphi 中的哈希表: thashedstringlist
更多相关阅读请进入《Delphi》频道 >>
