预览按钮事件代码
if image1<>nil then
begin
image1:=nil;
image1.free;
end;
image1:=Timage.Create(self);
image1.Parent:=Self;
//caption:=GroupBox1.Parent.Name ;
//GroupBox1.Parent.Name:='FRMTXMDY';
image1.Left :=23;
image1.Top :=119;
image1.Height :=65;
image1.Width:=272;
image1.Visible :=True;
try
myspace.TXM_TLB.paneimage(strtoint(edt_x.text),
strtoint(edt_y.text),
1,//128A;2:128B
strtoint(edt_height.text),
strtoint(edt_modul.text),
strtoint(edt_ratio.text),
DataSetBroker1.Dataset.fieldbyname('ecbm').asstring,
image1,
self);
except
jsdialogs.ShowMsg('错误的数字类型或打印模块有问题'+#13+'请重启程序后再试','提示');
end; |