Можно ли запретить Alt-F4, чтобы предотвратить закрытие формы?

Своим опытом делится Олег Кулабухов:

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;

[001834]

Содержание раздела