Dicas - Como desabilitar as teclas Alt + F4

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como desabilitar as teclas Alt + F4, em suas aplicações no delphi.

 

Como desabilitar as teclas Alt + F4

 

 

public

  { Public declarations }

  fecha: Boolean;

  end;

 

implementation

 

{$R *.DFM}

 

Function GetStateK (Key: integer): boolean;

begin

  Result := Odd (GetKeyState (Key));

end;

 

procedure Tfrm_HIP.FormClose(Sender: TObject; var Action: TCloseAction);

begin

If Not fecha Then

Action := caNone Else

Action := caFree;

end;

 

procedure Tfrm_HIP.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If GetStateK (VK_LMENU) And (Key = VK_F4) Then

fecha := False;

end;

 

 

 

 

 

 

 

 

 

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?