请问如何将qrdbtext 内容在QRBand1beforePrint赋给image1.canvas.textout 本帖最后由 lamyouiy 于 2010-01-06 16:47:43 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);var vTxt: string;begin vTxt := QRDBText1.DataSet.FieldByName(QRDBText1.DataField).AsString; Image1.Canvas.TextOut(0, 0, vTxt);end; 非常感谢,你给我解决了报表中数据不能竖排的问题,我将再将image textout输出作出竖排就解决问题了 如何在程序中删除U盘?delphi 高级字符串分割问题 关于BDE打包问题 处理Text文件问题?直接读取Text文件到某行后要把前面的记录删除掉,剩下的记录移到第一行开始怎么写? 这个SQL要怎么写啊,总是不对??? 永别了~~QQ 风流小太狼 请Delphi鸟窝的兄弟帮忙转达 FastReport+递加,在线等!!(FastReport高手进来指点一下) delphi 6的使用问题,各位捧场 Com中的事件问题 csdn的程序员大本营有病毒!!(happytime)好可怕!大家小心! 用透明窗体及透明Label做时间显示 VC 翻译成DELPHI
var PrintBand: Boolean);
var
vTxt: string;
begin
vTxt := QRDBText1.DataSet.FieldByName(QRDBText1.DataField).AsString;
Image1.Canvas.TextOut(0, 0, vTxt);
end;