Y
yyy_as
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下：ObjNewPicture 函数报错 Invalid Argument
procedure TfrmFindPrint.Button11Click(Sender: TObject);
var
AppPath:String;
id:Integer;
hwf:Cardinal;
begin
Image1.Picture.LoadFromFile(AppPath +'pic/Area.bmp');
hwf:=Image1.Picture.Metafile.Handle;
F1Book1.ObjNewPicture(1, 2, 4, 12, id,hwf,8, 0, 0);
end;
procedure TfrmFindPrint.Button11Click(Sender: TObject);
var
AppPath:String;
id:Integer;
hwf:Cardinal;
begin
Image1.Picture.LoadFromFile(AppPath +'pic/Area.bmp');
hwf:=Image1.Picture.Metafile.Handle;
F1Book1.ObjNewPicture(1, 2, 4, 12, id,hwf,8, 0, 0);
end;