delphi 还原窗口

1.格局还原
procedure TFrmStyleProp.btnNewClick(Sender: TObject);
//声明
var
iniFile : TIniFile;
idx : integer;
ctrl : TControl;
begin
//格局还原
iniFile := TIniFile.Create(ChangeFileExt(Application.ExeName,'-posi.ini')) ;
try
for idx := 0 to -1 + Self.ComponentCount do
begin
if Components[idx] is TRzSizePanel then
begin
ctrl := TControl(Components[idx]) ;
//该方法删除INI文件中指定的一个整段。
iniFile.EraseSection(ClassName + '.' + ctrl.Name);
end;
end;
B_Retrun_posi := True;
finally
FreeAndNil(iniFile) ;
end;
ShowMessage('格局还原完成，重进窗口即生效！');
end;
2.var
........
B_Retrun_posi:Boolean; //BN0158 声明变量

3.procedure TFrmStyleProp.FormClose(Sender: TObject; var Action: TCloseAction);

begin
if not B_Retrun_posi then
WriteControlPlacement;
Action := caFree;
end;

 

4.procedure TFrmStyleProp.FormCreate(Sender: TObject);
。。。。

B_Retrun_posi := False;

      14:38:58   2018-04-16

转载于:https://www.cnblogs.com/guangzhou11/p/8855782.html