如何使用tbitmap在form上进行作图

Question

如何使用tbitmap在form上进行作图

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
bt : TBitmap;
i : integer;
begin
{  //如果只是想在画布上画图，可以直接在窗体画布上画
   form1.Canvas.MoveTo(10,10);
   form1.Canvas.LineTo(100,100);  }
//下面的是演示使用是Tbitmap画图的例子
   bt := TBitmap.Create;     bt.Height := Form1.Height;
     bt.Width := Form1.Width;   bt.Canvas.MoveTo(10,10);  //移动到10，10这个点
   bt.Canvas.LineTo(100,100); //画一条线
   //将这个创建的Tbitmap实例的图像拷贝到窗体form1的画布上
   Canvas.CopyRect(rect(0,0,bt.Width,bt.Height),bt.Canvas,rect(0,0,bt.Width,bt.Height));
   bt.SaveToFile('d:\abc.bmp');//保存图片
    bt.Free; //释放
end;