Заключительный этап
На данном этапе программа уже функционирует, но в своём теперешнем виде имеет несколько недостатков. Первый недостаток следующий. После запуска программы сразу отображается пустое дочернее окно. Дело в том, что приложение Delphi автоматически создаёт при запуске все формы, в том числе и дочернее окно MDI. Однако требуется, чтобы дочерние окна создавались по мере необходимости. Чтобы удалить дочернее окно MDI из списка автоматически создаваемых окон проделайть следующее:
Выберите в главном меню пункт Project|Options. Появится диалог Project Options.
При необходимости щёлкните на закладке Forms. Вы увидите список автоматически создаваемых форм.
Щёлкните на дочерней форме, а затем на кнопке >. Форма будет удалена из списка Auto-create forms (автоматически создаваемые формы) и помещена в список Available forms (доступные формы).
Теперь снова запустите программу. Пустое дочернее окно больше не будет отображаться. Приложение будет иметь одну особенность, на которую следует обратить внимание. При щелчке на кнопке закрытия дочернего окна оно не закрывается, а сворачивается. Такое поведение является стандартным и определено Microsoft. Чтобы исправить ситуацию проделайте следующее:
Вызовите форму дочернего окна в конструктор форм. Убедитесь, что выделена сама форма, а не компонент Image (при необходимости выберите форму Child в селекторе компонентов).
Дважды щелкните в столбце Value рядом с событием OnClose в инспекторе объектов. Добавьте в обработчик события строку кода, чтобы он выглядел следующим образом:
procedure TChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
Установка caFree в качестве значения параметра Action указывает VCL на необходимость закрытия дочернего окна и освобождения выделенной для него памяти. Теперь при нажатии на кнопку Close окно будет вести себя так, как ему следует.
Cнова запустите программу и проверьте, что она работает как полагается.
Задание
Руководствуясь примером, создайте программу, осуществляющую просмотр графических файлов с использованием технологии многодокументного интерфейса. При создании программы можно использовать личные графические файлы.