我现在要做的是:Memo有下划线,可以自动伸展。(这我用交叉表可以实现)
但我还要Memo的第一行要空几个字才开始,其他行不变。而我在之前加空格时,打印时就空了一行。请教要怎样才能实现。
想要的效果如下:
ADFSDFD (第一行)
ADFSADFAFF (第二行)
ASDFDSFFFF (第三行)
.....
但我还要Memo的第一行要空几个字才开始,其他行不变。而我在之前加空格时,打印时就空了一行。请教要怎样才能实现。
想要的效果如下:
ADFSDFD (第一行)
ADFSADFAFF (第二行)
ASDFDSFFFF (第三行)
.....
解决方案 »
- 分享快乐免费获取“三星S7230E_3G手机”一部
- ZEOSDBO-6.6.3 连接MYSQL , 用IZResultSet得到结果集, 会出现中文编码问题, 有待解决
- RichEdit.LoadFromFile打开的文件显示乱码问题。
- 局域网中如何得到所有装有SQLServer的服务器名称!急啊!!!
- 我的IE 主頁被修改了
- 点击TreeView1列表打开对应的窗体
- 怎样把数据过滤后在交给ie处理呢?
- SQLSERVER客户端口用户登陆问题!
- 求助: Unit5.pas(8): File not found: 'ExtCtrlsX.dcu'
- 下载ADO程序员参考的地址在这里啊
- ~~~~~~~~~~~~~~~~类型转换问题~~~~~~~~~~~~~~~~~~~~~~
- 超级菜的问题!一个关于TCheckListBox控件的问题!!!!!在线等待!
http://expert.csdn.net/Expert/topic/1540/1540945.xml?temp=.8699457
var
StrList: TStringList;
ms: TMemoryStream;
implementation{$R *.dfm}procedure TForm1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
begin
StrList:= TStringList.Create;
ms:= TMemoryStream.Create;
StrList.Add(' 1111');
StrList.Add('1111111');
StrList.SaveToStream(ms);
ms.Position:= 0;
frReport.FindObject('memo1').Memo.LoadFromStream(ms);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
ms.Free;
StrList.Free;
end;
up!
救命啊!搞死我了!!