Fórum Desabilitar teclas alt F4 #170535

Esta dica eu peguei na net e não testei. function TForm1.GetStateK(Key: integer): boolean; begin Result := Odd(GetKeyState(Key)); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin //VK_LMENU = Alt esquerdo if GetStateK(VK_LMENU) and (Key = VK_F4) then begin fecha := false; ShowMessage(´Clique em Fechar para sair do programa´); end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if not fecha then Action := caNone else Action := caFree; end; procedure TForm1.BtnFecharClick(Sender: TObject); begin fecha := true; Close; end; Na seção public criar uma variável fecha do tipo boolean. Outra opção: Você pode simplesmente no evento OnShow do form passar a variável fecha para false e somente se o usuário clicar no botão fechar o form será fechado. Assim não é preciso verificar se as teclas estão pressionadas, no caso a funtion GetStateK e a procedure FormKeyDown são desnecessárias. Até +

No evento OnkeyDown do form if key=vk_f4 then key:=0; Não esqueça de setar a propriedade KeyPreview do form para true Um abraço