[PG81]

Подсказали на SQL.RU

Код:

TMainForm = class(TForm)
private
  ChildFrm:Tform;
protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
...
procedure TMainForm.Notification(AComponent:TComponent; Operation:TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (AComponent = ChildFrm) then begin
    ChildFrm := nil;
  end;
end;

Admin: Теги и еще раз теги!