F�rum problemas com bloqueio de teclas #316109

14/03/2006

pessoal tenho um Form do tipo fsNormal... gostaria de bloquear a combina��o de teclas Alt+F4 nele, porem nao pode ser por nenum tipo de exemplo do tipo os abaixo:

Obs: se trata de um form de Login que � chamado pelo formulario principal (fsMDIForm) no OnCreate...
O restante dos formularios sao MDIChild, entao se eu usar algum desses exemplos abaixo, nao consigo acessar os Forms MDIChild.

Quem puder me ajudar... fico grato...

Abra�os a todos...

-------------------EXEMPLO 1 --------------------------------------------
procedure TLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
end;
-----------------------------------------------------------------------------

------------------EXEMPLO 2 ---------------------------------------------
  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 
--------------------------------------------------------------------------------

Mahdak

Curtir t�pico

+ 0

Responder

Posts

15/03/2006

Mahdak

Up :shock:

Responder

Gostei + 0

15/03/2006

Paullsoftware

cara faz assim:

no form cria uma vari�vel global:

var
 Form1 : TForm1;
 ....
 wFechar : Boolean;

no onCreate do Form faz...

wFechar := False;

no OnCloseQuery Fa�a:

CanClose := wFechar;

se tratando de um form login, vc tem o c�digo que localiza o usu�rio e senha, ent�o, no bot�o �Entrar, Logar, Ok...� quando os dados s�o Checados, coloque no final do c�digo:

wFechar := True;
Close;

pronto, faz um teste ai! :wink:

Responder

Gostei + 0

15/03/2006

Mahdak

resolvido...
valleu!!!!

Responder

Gostei + 0