Fórum Principal.OnKeyDown. Erro!!! #239336

Vc está atribuindo um statement à um evento. O Delphi não permite isso.

Coloque o [if GetKeyStateK(...] em um método(função na sua classe), e use este método como manipulador de evento OnKeyPress.

Caro colega, da uma olhadinha no codigo abaixo, acho que isso é o que vc quiz me passar, mas o problema é que quero anular essa função que é ativada no evento OnKeyDown do Formulario Tprincipal, entao tentei colocar aquele codigo no formulario Tdestravar, para que ele anulasse essa função, para que eu pudesse usar novamente o Alt+F4, só que o que aconteceu foi aquele erro acima descrito. se vc pudesse me ajudar com um exemplo, ficaria grato...
abraços!



{FUNCAO RESPONSAVEL PELO BLOQUEIO DO ALT+F4 }
Function GetStateK (Key: integer): boolean;
begin
Result := Odd (GetKeyState (Key));
end;



procedure TPrincipal.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If GetStateK (VK_LMENU) And (Key = VK_F4) Then // ALT+F4
fecha := False; // ALT+F4
end;


-----------------AQUI ESTA AQUELE ERRO!!!-----------------------------------

procedure TDestravar.Button1Click(Sender: TObject);
begin
Principal.OnKeyDown := if GetStateK (VK_LMENU) And (Key = VK_F4) Then fecha:=true; // habilita o alt+f4
end;

Olá

Você quer que o código do OnKeyDown seja esse que você escreveu né

Então crie uma procedure ´Teste´



Agora vá ao OnKeyDown do form e escolha essa procedure que vc criou...pronto!
Você também pode fazer em tempo de execução, p.ex. no OnActivate do form:


Espero que ajude
Até+