Помогите разобраться как сделать чтоб форма не закрывалась по ALT+F4

Форма закроется если нажать на крестик и держать при этом Shift

// событие формы OnCloseQuery
procedure TForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (ssShift in GetShiftState);
  if not CanClose then
    Hide;
end;

Нажатие на крестик и Alt+F4 вызывают одно событие, так что вышенаписанное будет действовать как для крестика, так и для Alt+F4

В обработчик события OnClose даеш запрет!

       Просто обработай событие OnCloseQuery, и он будет выдавать запрос на сохранение!
 Кажется...

Попробуй в событии OnKeyDown написать обработчик нажатия Alt+F4,а
в нем Form1.Show. Должно работать, если я тебя правильно понял!

А на дату поста Вы смотрели? Скоро 2 года топику...

Matvey, тема была актуальна 2 года назад <_<