две формы Form1 и Form2

[Михаил Юрьевич]

Есть две формы Form1 и Form2 на Form2 CheckBox и Button
через button записываю в ini-файл, а через Form1-Create
читаю из ini-файла,но при компиляции выдает ошибку
на первой форме в строке:

Form2.CheckBox1.Checked:=ini.ReadBool('ee','rr',kkkk);

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ini:Tinifile;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create(extractfilepath(Application.ExeName)+'\Parametr.ini');
Form2.CheckBox1.Checked:=ini.ReadBool('ee','rr',kkkk);
ini.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

end.


 unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    CheckBox1: TCheckBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  ini:tinifile;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Ini:=TIniFile.Create(extractfilepath(Application.ExeName)+'\Parametr.ini');
ini.WriteBool('ee','rr',CheckBox1.Checked);
ini.Free;
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
 if Form2.CheckBox1.Checked=true then
 Form1.Color:=clRed else
 Form1.Color:=clGreen;
end;

end.

[Mitron]

На мой взгляд, вы пересоздаете файл, попробуйте не создавать его снова, а читать из созданного

[_Dmitry]

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create(extractfilepat h(Application.ExeName)+'\Parametr.i ni');
Form2.CheckBox1.Checked:=ini.ReadBool('e e','rr',kkkk);
ini.Free;
end;

Вы обращаетесь ко второй форме - которая еще не создана.
Поместите эти строки кода не в OnCreate, а в OnShow.

[Михаил Юрьевич]

убрал строку в Form1 Ini:=TIniFile.Create(extractfilepat h(Application.ExeName)+'\Parametr.i ni');
все равно при компиляции на той же строке ошибка(ни чего не изменилось)

[Alter]

Ещё ошибка в создании/открытии INI`шки:

Ini:=TIniFile.Create(extractfilepat h(Application.ExeName)+'\Parametr.ini'); <- отметил красным
Отмеченое надо у себя удалить, иначе прога будет обращаться по пути(допустим прога лежит на диске С): C:\\Parametr.ini

[Михаил Юрьевич]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create(extractfilepat h(Application.ExeName)+'\Parametr.i ni');
Form2.CheckBox1.Checked:=ini.ReadBool('e e','rr',kkkk);
ini.Free;
end;

Вы обращаетесь ко второй форме - которая еще не создана.
Поместите эти строки кода не в OnCreate, а в OnShow.

Убрал из create ,вставил в OnShow и там в той же строке выдает
ошибку, а конкретно в 'ee','rr',kkkk на буквах kkkk. причем если программа
из одной формы и с теми же строками все работает,где то в какой то
форме что то не прописал

[_Dmitry]

Что такое у вас kkkk, там должно быть true или false, т.е. значение, возвращаемое функцией, если параметр 'rr' не найден.

[Михаил Юрьевич]

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

Что такое у вас kkkk, там должно быть true или false, т.е. значение, возвращаемое функцией, если параметр 'rr' не найден.

Вставил false все заработало ,но только как то не понятно, по условию надо: if Form2.CheckBox1.Checked=true then
Form1.Color:=clRed else
Form1.Color:=clGreen;
Я на чекбоксе ставлю в true поле в красном цвете,выхожу из программы,
запускаю программу работает все правильно ,все в красном,потом ставлю чекбокс false,должен быть зеленый,а при запуске программы
вместо зеленого ставится цвет по умолчанию clBtnFace ,зеленого нет,
Может что то чекбоксе неправильно написал

[_Dmitry]

У вас не срабатывает CheckBox1Click, если его значение не меняется.
Сделайте так

procedure TForm1.FormShow(Sender: TObject);
begin
Ini:=TIniFile.Create(extractfilepath(Application.ExeName)+'\Parametr.ini');
if Form2.CheckBox1.Checked = ini.ReadBool('ee','rr',false) then
  Form2.CheckBox1.Checked:=not Form2.CheckBox1.Checked;
Form2.CheckBox1.Checked:=not Form2.CheckBox1.Checked;
ini.Free;
end;

[Alter]

Вообщето люблю динамическое создание и удаление форм, но раз уж здесь создаётся всё сразу...

unit Units1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var Ini :TIniFile; kkkk :Boolean;
  Form1: TForm1;

implementation
 Uses Units2;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Parametr.ini');
  kkkk := Ini.ReadBool('ee','rr', True);
  CASE KKKK OF
 True: Color := clRed;
 False: Color := clGreen;
  END;
 Ini.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Show;
end;

end.

unit Units2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var INI :TIniFile;
  Form2: TForm2;

implementation
 Uses Units1;
{$R *.dfm}

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
 IF (Sender as TCheckBox).Checked then
  Form1.Color := clRed else
  Form1.Color := clGreen;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
 Ini := TIniFile.Create( ExtractFilePath(PAramStr(0)) + 'Parametr.ini' );
 Ini.WriteBool('ee' ,'rr', CheckBox1.Checked);
 Ini.Free;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  CheckBox1.Checked:= kkkk;
end;

end.