rt

解决方案 »

  1.   

    autosize已经设成false还是不行啊!
      

  2.   

    利用Memo控件可以实现你的要求:
    调用下面函数就可以啦............procedure lineBreakQRMemo(text: string; textMemo: TMemo; QRMemo: TQRMemo);
    var
      i: integer;
    begin
      textMemo.Width := QRMemo.Width;
      textMemo.Height := QRMemo.Height;
      textMemo.Font.Name := QRMemo.Font.Name;
      textMemo.Font.Size := QRMemo.Font.Size;
      textMemo.Text := text;
      for i := 0 to textMemo.Lines.Count - 1 do
      begin
        QRMemo.Lines.Add(textMemo.Lines.Strings[i]);
      end;
    end;
      

  3.   

    看看我的办法是不是能帮助你
    用QR 里的有一个QRE? 的控件我记不住了 我是这样用的
    我的数据表里有一个字段A CHAR 40
     在控件的一个属性里这样写 COPY(A,1,20)+‘ ’+COPY(A,21,40)
     AUTOSIZE  设成 TRUE 
     我现在是这样用的 我也知道这个办法不好但是我也没有找到一个更好的
    东西