vitaly_l, а зачем? Если так уж сильно нужно, то создай вторую, невидимую, форму и сохраняй/восстанавливай вторую порцию данных в ней. Только ручками.
Добавлено спустя 1 минуту 12 секунд:Упс... а ведь так можно и в одной форме поступить...
Добавлено спустя 9 минут 35 секунд:вот наброски кода.
Код: Выделить всё
uses
Classes, SysUtils, Forms, Controls, Dialogs, ExtCtrls, ComCtrls, StdCtrls,
Menus, Spin, ColorBox, FileUtil, Types, Graphics, PairSplitter, ShellCtrls,
IniPropStorage, tune, Windows,....
....
procedure TMainForm.FormCreate(Sender: TObject);
begin
with MainForm.IniPropStorage1 do
begin
IniSection:='Tune'; //указываем секцию
WinView:=ReadBoolean('CheckWinPopup_Checked',false); //пробуем
IniSection:='Main'; //возвращаем обратно секцию формы
end;
...
end;
...
procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if FormTune.CheckOpenPrevSessionFile.Checked=true then
begin
IniPropStorage1.IniSection:='Main'; //указываем секцию формы
IniPropStorage1.WriteString('File', MyFile);
end else
begin
IniPropStorage1.IniSection:='Main'; //указываем секцию формы
IniPropStorage1.WriteString('File', '');
end;
end;