Код:
type
.....
procedure FormClose(Sender: TObject; var Action: TCloseAction);
.....
.....
.....
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
Код:
procedure TForm1.CreateClick(Sender: TObject);
begin
TForm2.Create(self);
end;
procedure TForm1.CloseClick(Sender: TObject); //Закрыть все окна
begin
for i:= 0 to MdiChildCount - 1 do
MDIChildren[i].Close;
end;
Вот так вот - я сам проверил все пашет без проблем