Desativar ALT F4, como faço?
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--
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
Curtidas 0
Respostas
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
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
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.
desculpe não ter colocado na pergunta mas estou procurando algo mais simples!!!
Obrigado.
GOSTEI 0
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
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
não eskece de ativar o KeyPreview
GOSTEI 0
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
07/02/2003
Muito Obrigado pessoal pelas dicas ....
JC
[é que esqueci de logar] hehehe :lol:
JC
[é que esqueci de logar] hehehe :lol:
GOSTEI 0