很简单的打印一行文本文字的问题呀,为什么老没人帮我?555 我用printer.Canvas.Textout(outrect.Left,outrect.Top,memo1.text);打印一行memo1里面的内容,但是文字一多就不能自动换行了,而且把字体改大后就重叠,怎么控制啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Textout不折行var Rect: TRect;begin rect.left := 300; rect.top := 300; rect.right := 400; rect.Bottom := 400;DrawText(printer.Canvas.Handle,pchar(memo1.text),length(memo1.text),Rect,DT_WORDBREAK or DT_LEFT); memo1.text转不成pchar啊?出错。 delphi中如何用代码对数据库中的密码进行加密? TADOQuery与TClientDataSet的不同 cxGridTableView1隔行颜色处理问题???? 请进 我在使用access的时候 不关闭窗口下如何释放全局变量和局部变量 讨论一下啦,关于材料领料系统的问题。关于材料自定义公式算法的问题??一定给分。 如何让Delphi的Combobox下拉菜单时,显示一个树形结构 求几本学delphi的书~~~~~~~~~ 关于timer的一个问题 日期型的如何写 DELPHI中webservice能否主动向客户端发送信息呢,或者客户端请求后能否保持链接呢? 打印问题!!急!!
var
Rect: TRect;
begin
rect.left := 300;
rect.top := 300;
rect.right := 400;
rect.Bottom := 400;
DrawText(printer.Canvas.Handle,pchar(memo1.text),length(memo1.text),Rect,DT_WORDBREAK or DT_LEFT);