【结贴】个性化保存

jianth2005 · 发表于 2009-8-5 11:06:43

http://bbs.justep.com/forum.php?mod=viewthread&tid=1303
这个链接中说的个性化保存，是不是只保存DataGrid这个控件自带的一些设置啊？
我自己做的某列的隐藏和只读属性保存到INI文件中，都不起作用的。看以下代码
procedure TJYF.BizFormShow(Sender: TObject);
var
i:integer;
begin
DataGrid1.LoadFromIniFile('c:\Justep.ini');
end;
----------------------------------------
procedure TJYF.Button1Click(Sender: TObject);
begin
DataGrid1.SaveToIniFile('c:\Justep.ini');
end;

zfang · 发表于 2009-8-5 11:24:40

那你看一下，是否把这些属性保存出来了。
如果没有保存出来那就load进去肯定就不行了。

jianth2005 · 发表于 2009-8-5 11:26:28

保存了啊，Justep.ini这个文件里面已经有数据了http://bbs.justep.com/forum.php?mod=viewthread&tid=770&highlight=savetoinifile
根据这个帖子上说的，也不行哦

zfang · 发表于 2009-8-5 12:52:33

上面帖子说不是可以的吗？

atiger · 发表于 2009-8-5 14:10:13

字段的只读是不能保存到这个文件中的，但列的隐藏式可以的，
参考代码如下

procedure TMainForm.Button1Click(Sender: TObject);
begin
  SAVETOXX.TSJWG1(DocViewSAVETOXX_SJWG1.Doc).DataGrid.Columns[0].Visible:= false;
  SAVETOXX.TSJWG1(DocViewSAVETOXX_SJWG1.Doc).DataGrid.SaveToIniFile('c:\Justep.ini')
end;

procedure TMainForm.BizFormShow(Sender: TObject);
begin
  SAVETOXX.TSJWG1(DocViewSAVETOXX_SJWG1.Doc).DataGrid.LoadFromIniFile('c:\Justep.ini');
end;

如果想保持字段只读，可以将属性内容写入到一个配置文件中，然后也在FromShow事件上加载

jianth2005 · 发表于 2009-8-5 14:29:42

DataGrid中某列的只读也不可以存在配置文件中啊？

atiger · 发表于 2009-8-5 14:36:19

对，你可以用记事本看一下这个文件，有的属性才能保持，没有的都不可以

jianth2005 · 发表于 2009-8-5 14:46:36

jianth2005 · 发表于 2009-8-5 14:55:02

保存DataGrid1.Columns.ReadOnly这个属性
有别的比较方便的方法可以做到吗？

atiger · 发表于 2009-8-5 15:10:59

你看Justep.ini 这个文件了吗？
没有记录ReadOnly这个属性。
方法在5楼说了，可以自己搞一个文件，或者数据表来存放不能保存到Justep.ini 这个文件的属性，当然也可以不用 Justep.ini 这个文件，全部自己存储到自己的文件或者表中

		自动登录	找回密码
密码			立即注册