Chamado de Múltiplos Formularios

Delphi

02/02/2015

Olá em meu projeto existem mais de 200 formulários. Porém, gostaria de que quando eu pressionasse o "F8" abrisse o meu formulário referente a minha calculadora.
Existe algum modo de eu tornar a tecla "F8" padrão para chamar esta minha calculadora de qualquer formulário em que eu estiver?

Grato desde já.
Guilherme

Guilherme

Curtidas 0

Respostas

Cauê Nishijima

Cauê Nishijima

02/02/2015

Olá Guilherme

No Create do Form principal adicione o seguinte código

RegisterHotKey(Handle,1, 0,VK_F8);


Então você declara uma procedure chamada WMHotKey na sessão private

procedure WMHotKey(var Msg:TWMHotKey); message WM_HOTKEY;


E a implementação da procedure fica da seguinte forma:

procedure TfrmPrincipal.WMHotkey(var Msg: TWMHotkey);
begin
   case Msg.HotKey of
      1 : "abre formulário da sua calculadora"
   end;
end;


Att. Cauê Nishijima
GOSTEI 0
POSTAR