Desativar ALT F4, como faço?

Delphi

07/02/2003

Olá pessoal,
Gostaria de saber como faço para minha aplicação não fechar com o ALT+F4, mas fechar com o botão ´x´ da janela ou outro botão da minha aplicação? Eu uso Delphi 5.

Obrigado a todos.

--JC--


Jc

Jc

Curtidas 0

Respostas

Rubensavelino

Rubensavelino

07/02/2003

:lol:

Como desabilitar as teclas Alt + F4, segue o exemplo.


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;

ate


GOSTEI 0
Jc

Jc

07/02/2003

Obrigado Rubens pela ajuda mas esse exemplo ja usei, e ele não funciona quando eu tento fechar minha aplicação clicando no botão ´Close´, por exemplo.

desculpe não ter colocado na pergunta mas estou procurando algo mais simples!!!

Obrigado.


GOSTEI 0
Moonlight

Moonlight

07/02/2003

no evento OnKeyDown:

if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;


não eskece de ativar o KeyPreview


GOSTEI 0
Aurino003

Aurino003

07/02/2003

no evento OnKeyDown: if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0; não eskece de ativar o KeyPreview


Obrigado pelas dicas simples e eficientes

:D


GOSTEI 0
Anonymous

Anonymous

07/02/2003

Muito Obrigado pessoal pelas dicas ....

JC
[é que esqueci de logar] hehehe :lol:


GOSTEI 0
POSTAR