Ошибка при уничтожении формы.
Jimmy © (2006-11-23 14:46:00)
Есть две формы: 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:00) [1]
procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
end;
а на OnClose - Action = caFree
Наверх 
ЧАТ |
Орешник |
|
