关闭时要自己保存,可以ini或注册表。
在程序之处起动的时候读出上一次保存的数据,设置columns中各列的width,
在程序之处起动的时候读出上一次保存的数据,设置columns中各列的width,
解决方案 »
- 怎样激活已知句柄窗体! 在线等 谢谢!
- 非常奇怪关于MDI程序子窗体菜单列表的问题
- 在编辑框(Edit等控件)内如何获取系统当前输入法?
- treeview小问题??
- 这种情况如何调用子窗口。
- ****100****我的dcom客户端程式分发后,为什么会出现interface not surportted错误*****
- 什么函数返回ASCII码的对应的字符
- 请问怎样备份和恢复SQL Server数据库?
- 新手提问:关于delphi+opengl开发三维!
- 发这个贴没别的意思,只是让各位见识见识,反正今晚我是吃不下饭了!妈的,真他妈的恶心!!!
- 如何将dbgrid中某boolean字段的值以汉字形式显示出来?
- 大富翁哪边的朋友指导我说:在DLL里面的form只能作为普通form或者MDICHILDFORM调出;不能作为MDIFORM内嵌着MDICHILDFORM一起调出来;CSDN这边的兄弟们大家觉得正确吗?
var I: Integer;
strs: TStrings;
begin
strs := TStringList.Create;
for I := 0 to DXDBGrid1.Columns.Count-1 do
begin
strs.Add(DXDBGrid1.Columns[I].FieldName);
end;
//或者:
DXDBGrid1.Columns.SaveToFile('h:\ll.txt');
FreeAndNil(strs);
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
DXDBGrid1.Columns.SaveToFile('h:\ll.txt');
读取:
DXDBGrid1.Columns.LoadFromFile('h:\ll.txt');
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
用SaveToIniFile(文件名称)保存格式
用LoadFromIniFile(文件名称)装入格式
需要设置IniSectionName属性不能让它为空字符串如需要保存时
dxDBGrid1.IniSectionName:='zyt';
dxDBGrid1.SaveToIniFile('c:\xx.cfg');需要取出保存的格式时
dxDBGrid1.IniSectionName:='zyt';
dxDBGrid1.LoadFromIniFile('c:\xx.cfg');