帮我看下函数哦高手please(0分)

  • 主题发起人 主题发起人 wyismail
  • 开始时间 开始时间
W

wyismail

Unregistered / Unconfirmed
GUEST, unregistred user!
我的想法很简单就是做一个动态FROM然后在它的上面加一个图片再打印出来
因为报表是印刷品所以只需要打印一个照片就行
function TForm1.ImgPrint(img: TBitmap;
ImgLeft, ImgTop: integer): integer;
var frm:Tform;
temimg:Timage;
begin
try
frm:=tform.create(self);
frm.Width :=515;
frm.Height :=728;
frm.Color:= clHighlightText;
temimg:=Timage.create(self);
temimg.Left:=ImgLeft;
temimg.Top:=ImgTop;
temimg.Width:=80;
temimg.Height:=100;
temimg.Stretch:=true;
temimg.Picture.Bitmap:=img;

temimg.Parent:=frm;
//就在这里出错??????????????????????????????
// frm.Print;
result:=1;
finally
frm.free;
temimg.Free;
end;
end;
 
中换成
temimg.Free;
frm.free;
 
接受答案了.
 
后退
顶部