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;