我的表里有一个字段叫jyxm,但是字段的内容有的短的有10个字左右,长的有60个字,
但是,在tquickrep 里tqrdbtext只能显示一部分,因为字段太长了,我想把这个字段显示30个字,然后把多余的字显示在下一行,但是我试了好了多方法都不行,请高手指导

解决方案 »

  1.   

    qreport不行。即使做出来也不好。
      

  2.   

    给你点参考;^_^; 
        
    procedure TForm1.Button1Click(Sender: TObject);beginSetCaption(button1,'第一行','第二行',form1.Color);end;procedure TForm1.SetCaption(AButton: TButton; ACaption1,ACaption2: string;color:TColor);vardc:Hdc;info:tagsize;beginAButton.Caption:='';dc:=GetDC(AButton.Handle);SetBKColor(dc,Color);SetBkMode(dc, TRANSPARENT);GetTextExtentPoint32(dc,pchar(ACaption1),length(ACaption1),info);Textout(dc,AButton.Width div 2-info.cx div 2,AButton.Height div 2-info.cy,pchar(ACaption1),length(ACaption1));GetTextExtentPoint32(dc,pchar(ACaption2),length(ACaption2),info);TextOut(dc,AButton.width div 2-info.cx div 2,AButton.Height div 2,pchar(ACaption2),length(ACaption2));end;