Цитата:
Сообщение от 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