запрет Alt+F4

[Freedom]

Как запретить Alt+F4?

[SuperVisor]

В свойствах формы на обработчик OnKeyUp и OnKeyDown ставишь такую функцию:

procedure TForm1.AltF4Deactivate(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ((key = vk_F4) and (ssAlt in Shift)) then
begin
key:=0;
system.Exit;
end;
end;

[Freedom]

спасибо, но а если форм много, на каждую кидать? я както это делал ещё без прописи кода, изменив свойства проекта. но сейчс не помню как