Ну вот так например:
Код:
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Toolbars.ini') do
begin
ToolBar1.Visible:=ReadBool('ToolBars', 'ToolBar1', True);
//и т. д.
Free;
end;
Сохранить видимость панелей
Код:
//пишешь в событии OnCloseQuery
with TIniFile.Create((ExtractFilePath(Application.ExeName) + 'Toolbars.ini') do
begin
WriteBool('ToolBars', 'ToolBar1', ToolBar1.Visible);
//и т. д.
Free;
end; |