DBGRIDEH格式保存/恢复

最新推荐文章于 2021-05-25 17:50:53 发布

weixin_30783913

最新推荐文章于 2021-05-25 17:50:53 发布

阅读量117

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hnxxcxg/archive/2008/04/15/2940886.html

本文介绍了使用Delphi中DBGridEh组件保存和恢复网格布局的方法。通过TIniFile处理配置文件，实现记住每列的可见性、宽度、排序等设置。此技术有助于提升应用程序用户体验。

procedure TFrmColSelect.SaveGridLayOut;
var
Ini: TIniFile;
begin
if CheckBox1.Checked then
    Grid.SaveGridLayoutIni(ExtractFilePath(Application.ExeName) + '/Grid.ini',
      Owner.ClassName + '$' + Name, true)
else
begin
    Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '/Grid.ini');
    try
      Ini.EraseSection(Grid.Owner.ClassName + '$' + Grid.Name);
    finally
      Ini.Free;
    end;
end;
end;

procedure RestoreGridLayOut(AGrid:TDBGridEh);
var
RestoreParams:TDBGridEhRestoreParams;
begin
RestoreParams:=[grpColIndexEh,grpColWidthsEh,grpSortMarkerEh,
    grpColVisibleEh,grpRowHeightEh];
with AGrid do
    RestoreGridLayoutIni(ExtractFilePath(Application.ExeName) + '/Grid.ini',
      Owner.ClassName + '$' + Name,RestoreParams);
end;

转载于:https://www.cnblogs.com/hnxxcxg/archive/2008/04/15/2940886.html