動態創建的QRshape在第二次preview時不顯示﹖

3832896 2003-08-22 02:19:34
在beforeprint觸發的事件﹕
M:=2;
For i:=1 to m do
Begin
Shape:=TQRshape.create(form);
Shape.parent:=form..sumband;
Shape.left :=50*m;
Shape.top:=0;
Shape.height:=3;
Shape.width:=300;
End;
在第二次quickrep.preview時不顯示第一次quickrep.preview所畫的線﹐請問怎樣實現﹖
我用shape.enable:=false;只能實現最后一條線不見﹐因為第一次preview時畫了兩條線﹐,請各位高手點明。
...全文
91 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
3832896 2003-08-22
  • 打赏
  • 举报
回复
M:=3;
For i:=1 to m do
Begin
Shape:=TQRshape.create(form);
Shape.parent:=form..sumband;
Shape.left :=50*m;
Shape.top:=0;
Shape.height:=3;
Shape.width
Shape.free; //在此加free出現錯誤﹐
End;
Shape.free //在此加free只放棄最后一次創建的shape(也只是最后一次創建的線條不見﹐其它仍在)
WWWWA 2003-08-22
  • 打赏
  • 举报
回复
创建了要释放:shape.Free
WWWWA 2003-08-22
  • 打赏
  • 举报
回复
创建了要释放:shape.Free

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧