[Delphi] Искал по форуму,но не нашел...

[Ученик(школьник)]

Если имеется модальная форма(3 поля ввода,2 компонента CheckBox,1 - Button),как сохранить вводимые параметры,для работы на главной форме? Если можно то чуть чуть поподробнее...

[VVM]

Все очень просто:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure Save;
    procedure Load;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Save;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Load;
end;

procedure TForm1.Load;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Save.ini');
  try
    Edit1.Text := Ini.ReadString('Edits', 'Edit1', '');
    Edit2.Text := Ini.ReadString('Edits', 'Edit2', '');
    Edit3.Text := Ini.ReadString('Edits', 'Edit3', '');
    CheckBox1.Checked := Ini.ReadBool('CheckBoxes', 'CheckBox1', false);
    CheckBox2.Checked := Ini.ReadBool('CheckBoxes', 'CheckBox2', false);
  finally
    Ini.Free;
  end;
end;

procedure TForm1.Save;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Save.ini');
  try
    Ini.WriteString('Edits', 'Edit1', Edit1.Text);
    Ini.WriteString('Edits', 'Edit2', Edit2.Text);
    Ini.WriteString('Edits', 'Edit3', Edit3.Text);
    Ini.WriteBool('CheckBoxes', 'CheckBox1', CheckBox1.Checked);
    Ini.WriteBool('CheckBoxes', 'CheckBox2', CheckBox2.Checked);
  finally
    Ini.Free;
  end;
end;

end.

[Ученик(школьник)]

спс,буду пробовать )

[Sm1Le]

это тока один способ передачи данных между формами, через ини файл, их много по гугли ... если интересно .. .