Сохранение положения и размеров создаваемых форм проекта

[le7o]

В общем ситуация такая проект с БД.
При запуске автосоздаются только DataModule и главная форма form1

Все остальные формы вызываются по следующему коду или аналогичному:

procedure TForm1.Button1Click(Sender: TObject);
var
  form2 : TForm2;
begin
  form2:= TForm2.Create(nil);
  form2.ShowModal;
  form2.free;
end;

В DataModule создал две процедуры для сохранения и загрузки параметров:

...
  public
    procedure SaveFormState(aForm: TForm);
    procedure LoadFormState(aForm: TForm);
    { Public declarations }
  end;
 
var
  DataModule4: TDataModule4;
  ini : TIniFile;
  pathINI : string;
 
implementation
 
{%CLASSGROUP 'Vcl.Controls.TControl'}
 
{$R *.dfm}
 
{ TDataModule4 }
 
procedure TDataModule4.DataModuleCreate(Sender: TObject);
begin
  pathINI:=extractfilepath(application.ExeName)+'\example.ini';
end;
 
procedure TDataModule4.LoadFormState(aForm: TForm);
begin
try
  ini := TIniFile.Create(pathINI);
  with aForm do
  begin
      //Left := ini.ReadInteger(aForm.Name, 'Left', Left);
      //Top := ini.ReadInteger(aForm.Name, 'Top', Top);
      Width := ini.ReadInteger(aForm.Name, 'Width', Width);
      Height := ini.ReadInteger(aForm.Name, 'Height', Height);
    end;
  FreeAndNil(ini);
except
  ShowMessage('Не удалось добавить должность');
end;
end;
 
procedure TDataModule4.SaveFormState(aForm: TForm);
begin
  ini := TIniFile.Create(pathINI);
  with aForm do
  begin
    //ini.WriteInteger(aForm.Name, 'Left', Left);
    //ini.WriteInteger(aForm.Name, 'Top', Top);
    ini.WriteInteger(aForm.Name, 'Height', Height);
    ini.WriteInteger(aForm.Name, 'Width', Width);
  end;
  FreeAndNil(ini);
end;
 
end.

Но вышеуказанный код работает только на автосоздаваемых формах, на Form2, которую я создаю уже в процессе работы сыпятся ошибки...

Как сохранить настройки в ini файле для не автосозданных форм?
Во вложении набросок для тест и для воспроизведения ошибки.

[Stilet]

уже в процессе работы сыпятся ошибки..

Стоит ли говорить "Ошибки в студию"? Хм... Совпаднуть? - не думаю )))

[evg_m]

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
///DataModule4.SaveFormState(Form2);
DataModule4.SaveFormState(SELF);
end;

Аналогично и для LoadFromState.

[le7o]

То что нужно спасибо)))

Сообщение от evg_m

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
///DataModule4.SaveFormState(Form2);
DataModule4.SaveFormState(SELF);
end;

[northener]

Сообщение от le7o

Но вышеуказанный код работает только на автосоздаваемых формах, на Form2, которую я создаю уже в процессе работы сыпятся ошибки...

Как сохранить настройки в ini файле для не автосозданных форм?
Во вложении набросок для тест и для воспроизведения ошибки.

Что такое Form2 ?
Пока не уяснишь для себя этот вопрос так и будут сыпЯться ошибки!

Грамотный код:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataModule4.SaveFormState(Self);  
end;

[le7o]

В Unit2 глобальная переменная типа TForm.
в Unit1 локальная для процедуры кнопки, соответственно ссылались в разные места...

Или я что то не правильно понимаю?

Сообщение от northener

Что такое Form2 ?
Пока не уяснишь для себя этот вопрос так и будут сыпЯться ошибки!

Грамотный код:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataModule4.SaveFormState(Self);  
end;

[northener]

Главное это то, что та самая глобальная переменная, которую IDE автоматически подставляет в шаблон формы в общем и целом не имеет никакого отношения ни к конкретному экземпляру формы, ни тем более к классу формы. Это всего лишь глобальная переменная, в которую записывается ссылка на экземпляр формы при автоматическом её создании.

[le7o]

Еще вопрос в рамках данной темы...
Практически на всех формах проекта у меня присутствуют компоненты типа Panel, GroupBox и т.п. + Splitter для изменения размеров, и хочется эти размеры сохранить...

На данный момент сделал так для одного произвольного компонента:

procedure SaveFormState(aForm: TForm); overload; 
procedure SaveFormState(aForm: TForm; aPanel: TWinControl); overload;


procedure TDM.SaveFormState(aForm: TForm);
begin
  ini := TIniFile.Create(pathINI);
try
  with aForm do
  begin
    ini.WriteInteger(aForm.Name, 'Height', Height);  
    ini.WriteInteger(aForm.Name, 'Width', Width);     
  end;
  FreeAndNil(ini);
except
  ShowMessage('Не удалось сохранить размеры формы');
end;
end;


procedure TDM.SaveFormState(aForm: TForm; aPanel: TWinControl);
begin
ini := TIniFile.Create(pathINI);
try
  with aForm do
  begin
    ini.WriteInteger(aForm.Name, 'Height', Height);   
    ini.WriteInteger(aForm.Name, 'Width', Width);     
    ini.WriteInteger(aForm.Name, 'PanelWidth', aPanel.Width);   
  end;
  FreeAndNil(ini);
except
  ShowMessage('Не удалось сохранить размеры формы');
end;
end;

Как в процедуру сохранения передать N количество параметров - компонентов?

[evg_m]

Как в процедуру сохранения передать N количество параметров - компонентов?

передать то можно с помощью массива. (точнее открытого массива)

procedure TDM.SaveFormState(aForm: TForm; list: array of TWinControl);

dm.SaveFromstate(form2, [panel1, panel3, groupbox2, ....]);

Но вот соханить-то удастся или нет.

for j:=low(list) to high(list) do begin
  ini.WriteInteger(aform.name, 'panelwidth', list[j].width);
end;

И мы получим РОВНО ОДНУ запись для последнего.
Этот пример для того чтобы ТС мог его исправить и записать ВСЕ значения.

[le7o]

evg_m, огромное спасибо, протестировал на паре форм все работает...

...
  public
    procedure SaveFormState(aForm: TForm); overload;
    procedure SaveFormState(aForm: TForm; List: array of TWinControl); overload;
    procedure LoadFormState(aForm: TForm); overload;
    procedure LoadFormState(aForm: TForm; List: array of TWinControl); overload;
    { Public declarations }
  end;

var
  DataModule4: TDataModule4;
  ini : TIniFile;
  pathINI : string;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

{ TDataModule4 }

procedure TDataModule4.DataModuleCreate(Sender: TObject);
begin
  pathINI:=extractfilepath(application.ExeName)+'\example.ini';
end;

procedure TDataModule4.LoadFormState(aForm: TForm);
begin
try
  ini := TIniFile.Create(pathINI);
  with aForm do
  begin
      Width := ini.ReadInteger(aForm.Name, 'Width', Width);
      Height := ini.ReadInteger(aForm.Name, 'Height', Height);
    end;
  FreeAndNil(ini);
except
  ShowMessage('Не удалось добавить должность');
end;
end;

procedure TDataModule4.SaveFormState(aForm: TForm);
begin
  ini := TIniFile.Create(pathINI);
  with aForm do
  begin
    ini.WriteInteger(aForm.Name, 'Height', Height);
    ini.WriteInteger(aForm.Name, 'Width', Width);
  end;
  FreeAndNil(ini);
end;

procedure TDataModule4.LoadFormState(aForm: TForm; List: array of TWinControl);
var
  j:integer;
begin
try
  ini := TIniFile.Create(pathINI);
  with aForm do
  begin
if Ini.SectionExists(aForm.Name) then   // если форма еще не сохранена то ни чего не делаем
      begin
      Width := ini.ReadInteger(aForm.Name, 'Width', Width);
      Height := ini.ReadInteger(aForm.Name, 'Height', Height);
      for j:=low(list) to high(list) do
      begin
        list[j].Width := ini.ReadInteger(aForm.Name, list[j].Name+'panelwidth', list[j].width);
      end;
end;
    end;
  FreeAndNil(ini);
except
  ShowMessage('Не удалось добавить должность');
end;
end;

procedure TDataModule4.SaveFormState(aForm: TForm; List: array of TWinControl);
var
j : integer;
begin
  ini := TIniFile.Create(pathINI);
  with aForm do
  begin
    ini.WriteInteger(aForm.Name, 'Height', Height);
    ini.WriteInteger(aForm.Name, 'Width', Width);
    for j:=low(list) to high(list) do
    begin
      ini.WriteInteger(aform.name, list[j].Name+'panelwidth', list[j].width);
    end;
  end;
  FreeAndNil(ini);
end;
...