PROIBIR ALT F4 NO FORM DE LOGIN

Delphi

13/10/2008

COMO FAÇO PARA PROIBIR AS TECLAS ALT+F4 NO FORM DE LOGIN


Boavida

Boavida

Curtidas 0

Respostas

Maikel

Maikel

13/10/2008

Olá

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
Boavida

Boavida

13/10/2008

Fazendo assim como voce diz, quando o usuário digitar a senha e o logim e clicar em Ok, ele fechará o formlogin e abrirá o sistema


GOSTEI 0
Maikel

Maikel

13/10/2008

Mas não é esta a intenção? Que no momento que ele digitar a autenticação de forma correta seja exibido o sistema?

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
Boavida

Boavida

13/10/2008

Mas não é esta a intenção? Que no momento que ele digitar a autenticação de forma correta seja exibido o sistema? 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


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
POSTAR