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

[acorn]

Пользователь нажимает на крестик. Вызывается событие OnClose. Что в нем надо написать, чтобы прервать закрытие программы?

 

[zubr]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Проверка условий
Action:=caNone;
end;

или

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;

 

[TSnake]

Можешь ещё и 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;

 

[ltfriend]

OnClose срабатывает и на Alt+F4