Прервать закрытие программы

acorn

PHP Developer
29.08.2004
585
3
29
Минск
soccerlist.ru
#1
Пользователь нажимает на крестик. Вызывается событие OnClose. Что в нем надо написать, чтобы прервать закрытие программы?
 
Z

zubr

Гость
#2
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Проверка условий
Action:=caNone;
end;
или
Код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;
 
T

TSnake

Гость
#3
Можешь ещё и Alt+F4 блокировать:
Код:
procedure TFormAbout.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 115) and (Shift = [ssAlt]) then
begin
ShowMessage('Не надо так делать!');
Key := 0;
end;
end;