如何截取form的某个部分生成图片(100)

  • 主题发起人 主题发起人 绯红之王
  • 开始时间 开始时间

绯红之王

Unregistered / Unconfirmed
GUEST, unregistred user!
程序目的:生成一张图片,里面的姓名和年龄可以根据自己在程序中edit里面的内容输出做法:做一个图片,放在image控件里面,在变更姓名和年龄的地方放置2个edit输入了对应的内容后,程序能够截取整个图片(2个edit控件是置于图片上面,形成重叠)生成所需要的图片现在就是如何截取图片生成所需要的图片?这是我理解的思路不知道有没有更好的思路
 
procedure TForm1.Button1Click(Sender: TObject);var Img: TImage; Dest: TRect; Source: TRect;begin Img:=TImage.Create(Self); Dest:=Rect(0, 0, Image1.Width, Image1.Height); Source:=Dest; offsetRect(Source, Image1.Left, Image1.Top); Img.Width := Image1.Width; Img.Height := Image1.Height; Img.Canvas.CopyRect( Dest, Self.Canvas, Source ); Img.Picture.SaveToFile('D:/a.bmp'); Img.Free;end;
 
在znxia的基础上实现了自己的想法,现场写代码,不正确的地方别介意,就是说个想法。procedure TForm1.Button1Click(Sender: TObject);var Img: TImage;begin Img:=TImage.Create(Self); Img.Picture.Assign(Image1.Picture); Img.Canvas.TextOut(Edit1.Text, Edit1.Left, Edit1.Top); Img.Canvas.TextOut(Edit2.Text, Edit2.Left, Edit2.Top); Img.Picture.SaveToFile('D:/a.bmp'); Img.Free;end;
 
看来我GDI+章是白看了
 
后退
顶部