Решение "EAccesViolation at adress 004302EF"

[Человек_Борща]

(По или поискал, нашел топик, но там не сказано как решить проблему)
2 формы. (Form1 & Form2)
на первой есть чекбокс, и кнопка(вызывает 2 форму).
на второй только чекбокс.

вот проблема.

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

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

procedure TForm1.FormCreate(Sender: TObject);
Var
Ini:TIniFile;
begin
ini:=Tinifile.Create(ExtractFilePath(ParamStr(0))+'Settings.ini');
Button1.Caption:=ini.ReadString('Main','test','button');
CheckBox1.Checked:=ini.ReadBool('Main','checkbox',false);
Form2.CheckBox1.Checked:=Ini.ReadBool('Main2','checkbox',true);
ini.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
Ini:TIniFile;
begin
ini.WriteString('Main','test',Button1.Caption);
ini.WriteBool('Main','checkbox',CheckBox1.Checked);
ini.WriteBool('Main2','checkbox',Form2.CheckBox1.Checked);
ini.Free;
end;

end.

при открытии приложения или закрытии...(если закоментировать {Form2.CheckBox1.Checked:=Ini.ReadB ool('Main2','checkbox',true);})
возникает "EAccesViolation at adress 004302EF"

как решить проблему?
то что программа пытается послать настройки на не существующую форму, это понятно, но какое решение?
пожалуйста... как?

Я же вам ясно написал - один вопрос - одна тема...
Что ж вы опять винегрет тут устраиваете ?
Как люди потом будут искать интересующее их, если вы все в кучу смешали ?

[mihali4]

Какова очередность создания форм в файле проекта ?
Вы уверены, что вторая форма создается до создания первой ?

[Человек_Борща]

хм..

Вы уверены, что вторая форма создается до создания первой ?

можно по подробнее..?

нет все в стандартном порядке.. сначала form1 потом form2 (В этом проблема? о_О)

p.S. извиняюсь, просто не могу привыкнуть к таким правилам, обычно на всех форумах просят не плодить топики.. а тут на оборот.(прошу прощения, исправлюсь)

[maxionans]

Локализацию форм и чтение настроек из ini-файла нужно сделать отдельно для каждой формы. Главная форма создается самой первой, поэтому обращение из её OnCreate к другим формам в любом случае будет вызывать AV, т.к. они к тому моменту еще не созданы.

[mihali4]

Проще говоря, перенесите всю обработку из события TForm1.FormCreate в событие TForm1.FormActivate
Должно помочь...

[maxionans]

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

[Stilet]

(В этом проблема?

Именно в этом.
Можно выдрать из dpr
Application.CreateForm(TForm2, Form2);
И вставить в TForm1.FormCreate, я иногда так делаю.

[Человек_Борща]

хм, maxionans ваш вариант кажется более интересным!
вот что я имею...
на форме настроек.. TSettingsForm(от туда и идёт управление, языком приложения через переключение чекбоксов...)

procedure TSettingsForm.LangRussianClick(Sender: TObject);
begin
  if LangRussian.Checked = True then
  begin
    MainForm.AutoSearchBtnStart.Caption := 'Старт';
    MainForm.SkinProvider.AddedTitle.Text := '';
    SettingsForm.Caption := 'Настройки';
    SettingsForm.skinAppyRight.Hint := 'установив галочку, выбранный скин будет применяться сразу, а не после нажатия "Применить и выйти"';
    AboutForm.Caption := 'О программе...';
  end;
end;

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

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

может поможете?

p.s. аналогично передаче настроек.. с одной формы на другую...

[mihali4]

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

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

Вы этот сказанный вами бред хотя бы проверили, что ли...
А то как-то совсем уж неудобно получается...
Попробуйте-ка примитивный проектик, в котором есть всего-то навсего:

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage('aaaa');
Application.ProcessMessages;
end;

и убедитесь, что ShowMessage будет выполнено один-единственный раз - при запуске программы...

[Человек_Борща]

поможет кто-небуть?