Как предотвратить закрытие приложения?

← →
KpeHgeJIb (2003-06-01 00:58) [0]

Нужно предотвратить закрытие приложения, тоесть так как это делают Word, NotePad и другие при не сохраненном документе. Должно появится окно с тремя кнопками Yes No Cancel (с этим я уже разобрался), а вот как сделать так чтоб по нажатию на Cancel программа не закрылась?

← →
uw © (2003-06-01 01:03) [1]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
end;

← →
uw © (2003-06-01 01:18) [2]

Это обработчик OnClose.

← →
KpeHgeJIb (2003-06-01 01:18) [3]

Спасибо ...... :)

← →
Нуу (2003-06-01 03:36) [4]

А для чего тогда нам дано событие OnCloseQuery?

Как предотвратить закрытие приложения? Найти похожие ветки