在移动完以后取col信息吧,通过Cells[i, 0]取首行的col名称
解决方案 »
- 在Delphi中调试出现调用Dll出错,但在运行时确没错。
- 多个窗口切换的问题。
- 请西安的朋友介绍一下的好单位和烂单位(用delhpi的)
- 自定义纸张--在线等待
- 数据库在运行一段时间后就没有响应了,可能是死锁的问题?
- 怎样分页打印大图形
- 斑竹兄弟们一定要救命啊,QRDBRichtext里怎么老是在报表title下部分显示不了大字段的,移到上部分又行的?我快不行拉。。
- 被黑的证据!
- 哪儿有《DELPHI开发人员指南》源码下载?
- How can I resize a dynamic component in a form's Resize event
- Delphi 繁简体多次转换的问题
- Delphi调用Dll返回结构体的问题?
感谢一楼!
这个方法我有想过,但在此需求里不适用,因为实际上文档里记录的等号前是初始栏位名,等号后是更改后的栏位名,有可能在拖动时栏位名已经被改了。这样写似乎更清楚:
【拖动后】(把ddd拖到aaa和bbb之间)
---StringGrid---
aaa ddd 2 3 eee---文档---
aaa =1
ddd =4
bbb =2
ccc =3
eee =5
2.生成报表的栏位名称可让user自行定义。
3.生成报表的栏位顺序可让user自行设定。
4.以上3点的设定可以储存(SAVE)与载入(LOAD)。就是这个栏位顺序不好办,没有思路啊~~大家帮帮忙!
procedure TfReport.strgridwoColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer);
var ListRep : TstringList;
begin
ListRep := TStringList.Create;
ListRep.LoadFromFile('C:\temp.ini'); //关联文件
ListRep.Insert(ToIndex+1,ListRep[FromIndex]); //从拖动前的位置insert到拖动后的位置
ListRep.Delete(FromIndex+1); //将拖动前的资料删除
ListRep.SaveToFile('C:\temp.ini'); //保存
ListRep.Free; //释放
end;
var ListRep : TstringList;
begin
ListRep := TStringList.Create;
ListRep.LoadFromFile('C:\temp.ini'); //关联文件
ListRep.Insert(ToIndex+1,ListRep[FromIndex]); //从拖动前的位置insert到拖动后的位置
ListRep.Delete(FromIndex+1); //将拖动前的资料删除
ListRep.SaveToFile('C:\temp.ini'); //保存
ListRep.Free; //释放
end;