Тема: ModalResult
Показать сообщение отдельно
  #8  
Старый 13.03.2018, 23:23
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от nixon232
...Само собой, все формы создаются вручную.
Вручную модалка вот так создаётся и показывается
Код:
 SomeFRM:= TSomeFRM.Create(Self);
 try
 SomeFRM.ShowModal;
finally 
 SomeFRM.Free;
end;
а если нужна реакция на закрытие, событие OnCloseQuery используется для этого, чтоб спросить пользователя - уверен ли он, возможно остались несохранённые данные
Код:
procedure TSomeFRM.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Закрыть окно, уверены?', 
  mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then
  CanClose:= false;
end;
перевод CanClose в true, продолжит выполнение Close
Ответить с цитированием