盒子论坛 v2.1

var
   iniFile : TIniFile;
   idx : integer;
   ctrl : TControl;
begin

   iniFile := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
   try
     for idx := 0 to -1 + Self.ComponentCount do
     begin
       if Components[idx] is TControl then
       begin
         ctrl := TControl(Components[idx]) ;
         iniFile.WriteInteger(ctrl.Name,'Top',ctrl.Top) ;
         iniFile.WriteInteger(ctrl.Name,'Left',ctrl.Left) ;
         iniFile.WriteInteger(ctrl.Name,'Width',ctrl.Width) ;
         iniFile.WriteInteger(ctrl.Name,'Height',ctrl.Height) ;

       end;
     end;
   finally
     FreeAndNil(iniFile) ;
   end;
end;

这个没有问题，但我想把生成的ini名称改为self.name,这样每个窗体都可以单独的
第二 iniFile.Writestring(ctrl.Name,'Height',ctrl.parent) ;
'string' and 'TWinControl' 这个怎么解决
----------------------------------------------
-

作者：

chscheese (chscheese)	★☆☆☆☆	-
	盒子活跃会员

2018/5/26 1:21:00

1楼：

iniFile.Writestring(ctrl.Name,'Height',intToStr(ctrl.parent.Height)) ;
----------------------------------------------
-

作者：

earthsbest (全能中间件)	▲▲▲▲△	-
	普通会员

2018/5/26 10:32:55

2楼：

Section := ctrl.Owner.Name + '.' + ctrl.Name;
iniFile.WriteInteger(Section, 'Top', ctrl.Top);
----------------------------------------------
Delphi4Linux Delphi三层/FireDAC 技术群：734515869 http://www.cnblogs.com/rtcmw

信息

登陆以后才能回复