Desativar ALT F4, como fa�o?

Question

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--...

Rubensavelino · Answer

: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

Jc · Answer

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.

Moonlight · Answer

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

Aurino003 · Answer

[quote:9eb86d563d=�moonlight�]no evento OnKeyDown:if ((ssAlt in Shift) and (Key = VK_F4)) thenKey := 0;n�o eskece de ativar o KeyPreview[/quote:9eb86d563d]Obrigado pelas dicas simples e eficientes :D...

Anonymous · Answer

Muito Obrigado pessoal pelas dicas ....JC[� que esqueci de logar] hehehe :lol:...