Советы по Delphi
Проблема закрытия дочернего MDI-окна
Не пытайтесь разрушить форму из самой себя. Присвоение параметру action значения caFree в обработчике события формы OnClose заставит родительское окно самому уничтожить дочернюю форму.
Для предотвращения закрытия формы необходимо обрабатывать событие OnCloseQuery (к примеру, в момент редактирования таблицы или для корректного сохранения вновь введенных значений на дочерней MDI-форме).
Родительское MDI-окно должно иметь пункт меню для возможности закрытия активного в текущий момент дочернего окна. Вот примерный код, обрабатывающий нажатие данного пункта меню:
| ActiveMDIChild.Close; |
Попробуйте следующее:
|
procedure TFrmServers.FormClose(Sender:TObject; var Action:TCloseAction); begin Action := caFree; end; procedure TFrmServers.FormDestroy begin Table1.Close; end; procedure TFrmServers.FormCloseQuery begin if table1.state in [dsEdit,dsInsert] then begin // предупреждаем пользователя о возможной потере редактируемых // данных и при нажатии на ОК закрываем окно if not UserSaysOk then CanClose := False; end; end; |
[000169]
