Setar F3 no Form Principal para usar em toda a aplicacao?

Question

� possivel setar uma tecla no inicio da aplicacao (no Form principal) para que a mesma funcione em todo o sistema?Explicando melhor:No Clipper eu colocava no inicio dos fontes: SET KEY -2 TO calendari...

Ltres · Answer

cara coloca um TApplicationEvents da paleta additional e no evento OnShortCut colo uma rotina do tipo:

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if Msg.CharCode = VK_F3 then
    ShowMessage(�F3�);
end;

Quando tento utilizar esta variavel VK_qualquercoisa
apresentar sempre erro

Adonis · Answer

LTres,Que maravilha. Deu certo. Era isto mesmo que eu queria. Eu nem sabia que existia este tal de: TApplicationEvents. J� v� que tenho muito ainda � aprender em Delphi...Agradeco muito a ajuda......

Dpinho · Answer

[quote:b25204e0ed=�LTres�]cara coloca um TApplicationEvents da paleta additional e no evento OnShortCut colo uma rotina do tipo:[code:1:b25204e0ed]procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;  var Handled: Boolean);begin  if Msg.CharCode = VK_F3 then    ShowMessage(�F3�);end;[/code:1:b25204e0ed][/quote:b25204e0ed]Quando tento utilizar esta variavel VK_qualquercoisaapresentar sempre erro...

Paulo_amorim · Answer

Ol�Dependendo da tecla que vc quer, pode-se utilizar o codigo Ascii dela...At�+...

F�rum Setar F3 no Form Principal para usar em toda a aplicacao? #236353