窗口还原

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]) ;
iniFile.EraseSection(ClassName + '.' + ctrl.Name);
end;
end;
B_Retrun_posi := True;
finally
FreeAndNil(iniFile) ;
end;
ShowMessage('格局还原完成，重进窗口即生效！');
end;