Fórum PROIBIR ALT F4 NO FORM DE LOGIN #364998
13/10/2008
0
Boavida
Curtir tópico
+ 0Posts
14/10/2008
Maikel
Para resolver este problema, declare uma variável Global do tipo Boolean ou mesmo crie uma propriedade [boolean] na unit do formulário de login.
No evento OnCloseQuery do form de login, adicione:
Canclose := [Sua Propriedade];
No evento OnCreate do formulário adicione:
[Sua Propriedade] := False;//Isto define que o formulário não poderá se fechado com Alt+F4 e nem pelo Fechar no canto superior direito.
Para fechar o formulário, adicione um botão ´Cancelar´ e nele adicione o código:
[Sua Propriedade] := True;
Close();
Isto irá resolver seu problema
Att
Gostei + 0
14/10/2008
Boavida
Gostei + 0
14/10/2008
Maikel
Quando ele autenticar, coloca a variavel de fecharForm para true e fecha o formulário de login e fica apenas no sistema.
Se não for isso, explica o que vc está qrendo fazer.
Att
Gostei + 0
15/10/2008
Boavida
Olá amigo consegui resolver: só queria evitar que o usuário fechasse o form login sem se autenticar. travei o F4:
procedure Tlogin.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F4) THEN
Key := 0;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)