Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.032 c