Сохранение формы

[Veiron]

Можно ли использовать какой нибудь ActivX или код что бы сохранять/загружать параметры формы и ее компонентов не прибегая к ручному writeln/readln в текстовый файл?

[AnalogXP]

Если вы о сохранении размера, состояния окна, то я пользуюсь вот этим:

procedure SaveWndPos(frm: TControl; cClass: string = '');
var
  rct: TRect;
  oReg: TRegistry;
begin
  {--- определить параметры ---}
  rct := frm.BoundsRect;
  if (cClass = '') then
    cClass := frm.ClassName;
  {--- сохранить в реестре ---}
  oReg := TRegistry.Create();
  with (oReg) do
  try
    RootKey := HKEY_CURRENT_USER;
    {--- ... размер окна ---}
    if (OpenKey(cRegKey + cClass, True)) then
    begin
      if (frm is TForm) then
        WriteInteger('Show', Ord((frm as TForm).WindowState));
      if (not (frm is TForm) or
        ((frm as TForm).WindowState = wsNormal)) then
      begin
        WriteInteger('Left', rct.Left);
        WriteInteger('Top', rct.Top);
        WriteInteger('Right', rct.Right);
        WriteInteger('Bottom', rct.Bottom);
      end;
    end;
    CloseKey();
  finally
    CloseKey();
    Free;
  end;
end;
//--------------------------------------------------------------------------
procedure SetWndPos(frm: TControl; lSetSize: Boolean = True;
  cClass: string = '');
var
  rct: TRect;
  oReg: TRegistry;
  nShow: Integer;
begin
  nShow := Ord(wsNormal);
  {--- текущие параметры (на случай, если нет в реестре) ---}
  rct := frm.BoundsRect;
  if (cClass = '') then
    cClass := frm.ClassName;
  if (frm is TForm) then
    nShow := Ord((frm as TForm).WindowState);
  {--- считать из реестра ---}
  oReg := TRegistry.Create();
  with (oReg) do
  try
    RootKey := HKEY_CURRENT_USER;
    {--- ... размер окна ---}
    if (OpenKeyReadOnly(cRegKey + cClass)) then
    begin
      if (frm is TForm) then
        nShow := ReadInteger('Show');
      if (ValueExists('Left')) then
        rct.Left := ReadInteger('Left');
      if (ValueExists('Top')) then
        rct.Top := ReadInteger('Top');
      if (ValueExists('Right')) then
        rct.Right := ReadInteger('Right');
      if (ValueExists('Bottom')) then
        rct.Bottom := ReadInteger('Bottom');
    end;
    CloseKey();
  finally
    CloseKey();
    Free;
  end;
  {--- применить считанное к окну ---}
  if (lSetSize) then
    frm.BoundsRect := rct
  else
  begin
    frm.Top := rct.Top;
    frm.Left := rct.Left;
  end;
  if ((frm is TForm) and (nShow = Ord(wsMaximized))) then
    (frm as TForm).WindowState := wsMaximized;
end;

И при создании формы (FormCreate) пишем:

SetWndPos(Self);

А при закрытии (FormClose):

SaveWndPos(Self);

[mutabor]

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

Можно ли использовать какой нибудь ActivX или код что бы сохранять/загружать параметры формы и ее компонентов не прибегая к ручному writeln/readln в текстовый файл?

Специально для этого существуют INI файлы. По сути это текстовый файл имеющий особую структуру. В Дельфи есть модуль IniFiles упрощающий работу с ними. Также написано много статей на эту тему (если книги нет).

[AnalogXP]

А вот работа и с INI файлами, для сохранения настроек:

uses ..., IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var Ini: TIniFile;
begin  
   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
   try
       Form1.Top:=ini.ReadInteger('Position','Top', 100);
       Form1.Left:=ini.ReadInteger('Position','Left', 100);
       ...
    finally
       ini.Free;
    end;

Procedure TForm1..FormClose(Sender: TObject);
var ini: Tinifile;
begin
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
    try
      ini.WriteInteger('Position','Top', Form1.Top);
      ini.WriteInteger('Position', 'Left', Form1.Left);
      ...
    finally
     ini.Free;
    end;
end;

[Veiron]

AnalogXP
Не просто формы, а еще и компонентов например состояние CheckBox и т.д. но все равно спасибо, думаю скоро пригодиться.

mutabor
Где можно взять модуль IniFiles ? Просто программа стала обладать большим количеством компонентов и уже накладно становиться просто записывать данные в текстовый файл и тем более добавлять.

[AnalogXP]

Veiron, так смотри мой пример про INI. Я же специально ставил троеточие, чтобы ты понял что там еще кое чего можно писать. Про CheckBox говоришь? Так пиши:

В FormCreate
CheckBox1.Checked:=ini.ReadBool('Ch eckBox','Checked', true);

В FormClose
ini.WriteBool('CheckBox', 'Checked', CheckBox1.Checked);

[Veiron]

Спасибо постараюсь разобраться... выглядит несколько лучше текстовика (экономнее).

[mutabor]

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

Спасибо постараюсь разобраться... выглядит несколько лучше текстовика (экономнее).

он и есть текстовик, с ним просто удобнее работать