Alt + F4 blocken

[axelf98]

Bei mir klappt das so:

Delphi-Quellcode:

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

Aber ich weiss nicht, ob das so elegant ist..

So gehts auch:

Delphi-Quellcode:

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