Скачать: CL | DM;

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

← →
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?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c