30.01.2011, 13:11
|
|
Новичок
|
|
Регистрация: 21.12.2010
Сообщения: 51
Репутация: -284
|
|
Цитата:
|
Сообщение от ryderx34
Делай не в OnClose а в OnCloseQuery, изменяя переменную CanClose (она определяет закрывать окно или нет).И если ты вызываешь вторую форму как модальную, то просто проверяй ModalResult. У кнопки "Да" установи свойство ModalResult в mrOk, у кнопки "Нет" - mrCancel и в OnCloseQuery впиши этот код:
Код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Form2.ShowModal = mrOk;
end; |
Спасибо, получилось)) |