Событие OnCreate для формы

[roxy7]

Помогите разобраться тут:

...
procedure TForm2.FormCreate(Sender: TObject);
begin
 PrgDir := ExtractFileDir(Application.ExeName)+'\';
 Ini := TIniFile.Create(PrgDir+'Test1.ini');
 Caption := Ini.ReadString('Тест', 'Название теста', 'Тест без названия');
 QuestNum :=0;
 Scores := 0;
 QuestCount := Ini.ReadInteger('Тест',
                     'Количество вопросов ', -2);
 if QuestCount<-1 then
  Ini.WriteInteger('Тест', 'Количество вопросов ', -1);
end;

procedure TForm2.FormBCreate(Sender: TObject);
begin
PrgDir := ExtractFileDir(Application.ExeName)+'\';
 Ini := TIniFile.Create(PrgDir+'Test2.ini');
 Caption := Ini.ReadString('Тест', 'Название теста', 'Тест без названия');
 QuestNum :=0;
 Scores := 0;
 QuestCount := Ini.ReadInteger('Тест',
                     'Количество вопросов ', -2);
 if QuestCount<-1 then
  Ini.WriteInteger('Тест', 'Количество вопросов ', -1);;
end;

...

procedure TForm2.Buttun1Click(Sender: TObject);
begin
Form2.OnCreate:=FormCreate;
 if Button1.Visible then
   begin
    Button1.Hide;
    QuestNum := 1;
    ShowQuestion;
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.OnCreate:=FormBCreate;
 if Button2.Visible then
   begin
    Button2.Hide;
    QuestNum := 1;
    ShowQuestion;
   end;
end;

Обратите внимание на 2 имена процедуры обработки события OnCreate для формы.
Проблема в том, что при нажатии первой кнопки (button1) получаю тест (тест из файла test1.ini), а при нажатии второй - тот же самый тест... А должно быть из файла test2. Вот не получилось... Что делать?

[Пепел Феникса]

Форма то создается вами или один раз?
я бы уж тогда OnShow применил..

[Афанасий[vedma]]

определенно OnShow

[roxy7]

Сообщение от Афанасий[vedma]

определенно OnShow

А это тоже не получилось...
Почему, что это не сработало?

Form2.OnCreate:=FormBCreate;

[Stilet]

Почему, что это не сработало?

Да потому что формы ты создаешь еще до выполнения всех этих кодов.

procedure TForm2.Buttun1Click(Sender: TObject);
begin
FormCreate(Self);
 if Button1.Visible then
   begin
    Button1.Hide;
    QuestNum := 1;
    ShowQuestion;
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
FormBCreate(Self);
 if Button2.Visible then
   begin
    Button2.Hide;
    QuestNum := 1;
    ShowQuestion;
   end;
end;

Понятно?

[roxy7]

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

Да потому что формы ты создаешь еще до выполнения всех этих кодов.

procedure TForm2.Buttun1Click(Sender: TObject);
begin
FormCreate(Self);
 if Button1.Visible then
   begin
    Button1.Hide;
    QuestNum := 1;
    ShowQuestion;
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
FormBCreate(Self);
 if Button2.Visible then
   begin
    Button2.Hide;
    QuestNum := 1;
    ShowQuestion;
   end;
end;

Понятно?

Понятно. У меня получилось! Спасибо вам большое!