关于使用quickreport 打印表格，在线。答案正确马上结帖！

Question

用程序生成QRSHAPE啊
一个一个生成，简单又整齐，代码我一下找不到
我写成控件的

Answer 1

lanbada(lanbada) ：怎么生成啊，拜托了，急！！！

Answer 2

var a:tqrshape;
a:=tqrshape.create(form1);
a.parent:=form1;
a.left:=10;
a.top:=10;

Answer 3

var a:tqrshape;
a:=tqrshape.create(form1);
a.parent:=form1;
a.left:=10;
a.top:=10;

Answer 4

var a:tqrshape;
a:=tqrshape.create(form1);
a.parent:=form1;
a.left:=10;
a.top:=10;

Answer 5

用程序生成QRSHAPE啊 一个一个生成，简单又整齐
  //生成横线
  QRshape1:=TQRshape.Create;
  QRshape1.Shape :=qrsHorLine;//竖线用qrsVertLine
  QRshape1.Top :=You line Top;
  QRshape1.Left:=You line Left;
  QRshape1.Height :=1;
  QRshape1.width := You Line width;
  QRshape1.Parent := ParentName;
  QRshape1.show;
用完后要QRshape1.Free;

Answer 6

就是用qrshape我用的只有qrsrectangle,排列好了,根本不麻烦
因为你只需要做好表头就可以了

Answer 7

同意naughtyboy(淘气男孩) 的, 我开始用qrshape做表格时，也是把它当作线条，一条线一条线的画，后来当作rectangle，只要背景色一样，注意一下覆盖的问题，就可以事半功倍。

Answer 8

外框可以用band的Frame, 里面的线条用 QRShape