Ошибка при уничтожении формы.

← →
Jimmy (2006-11-23 14:46) [0]

Есть две формы: Form1, материнская MDI-форма, которая создается в Project1.dpr, на ней Button1. Есть Form2, дочерняя MDI-форма, которая создается динамически, на ней Button2.
Код формы 1:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
end;
Код формы 2:
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Free;
end;
Кликаю на Button1, создается форма 2, кликаю на Button2, возникает ошибка. Иногда не с первого, а со второго раза. Почему? Заранее спасибо.

← →
RASkov (2006-11-23 14:52) [1]

procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
end;
а на OnClose - Action = caFree

Ошибка при уничтожении формы. Найти похожие ветки