背景用image控件,画图用PaintBox控件
var FBmp: TBitmap;
begin
FBmp:=TBitmap.Create;
FBmp.Width:=image1.Width;
FBmp.Height:=image1.Height;
FBmp.PixelFormat:=pf24bit;
FBmp.Canvas.CopyRect(Rect(0,0,FBmp.Width,FBmp.Height),
Form1.PaintBox1.Canvas, //这里改了
Rect(0,0,FBmp.Width,FBmp.Height));
SaveDialog1.Execute;
FBmp.SaveToFile(SaveDialog1.FileName);
end;
还不清楚可以加Q:壹零四零六零二一三四
[
本帖最后由 zcwthy 于 2013-5-4 22:54 编辑 ]