Código Delphi [-] ... procedure TForm1.FormCreate(Sender: TObject); begin KeyPreview := True; end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ( Shift = [ssalt] ) and ( Key = VK_F4 ) then Key := Ord(0); end; ...
... procedure TForm1.FormCreate(Sender: TObject); begin KeyPreview := True; end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ( Shift = [ssalt] ) and ( Key = VK_F4 ) then Key := Ord(0); end; ...