Delphi dicas

Desabilita alt + f4 e esc

Fecha:boolean; // variavel booleana para utilizar no procedimento do desabilita alt+f4



Function StatusTecla (Key: integer): boolean;//função para desabilitar alt+f4

begin

        Result := Odd (GetKeyState (Key)); //Result := se a tecla for pressionada

end;





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

Shift: TShiftState);

begin

        If StatusTecla (VK_LMENU) And (Key = VK_F4) Then //Se esc e Alt+f4 for apertada

        fecha := False; //variavel fecha vai desabilitar

end;







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

begin

        If Not fecha Then //se a variavel de fechamento fecha estiver falsa

        Action := caNone Else // nao realizará  nenhuma operação

        Action := caFree;

end;







end.





//Para fechar o formulário antes de dar o comando close vc deverá colocar a variavel fecha:=true;

por : Edi Willian