Habilitar SHIFT-F3 para todo o sistema.

Delphi

25/02/2005

Bom Dia Pessoal


Como faço para que uma calculadora fique disponível em qualquer parte da aplicação pressionando as teclas SHIFT-F3.
Consegui utilizando somente uma tecla ( F3 ). Mas quando tento fazer com duas teclas, não funciona.

parte do código que consegui ( uma tecla )

procedure Tfrmprincipal.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
if Msg.CharCode = VK_F3 then
calculadora.Execute;
end;


Obrigado

Reuber


Jubrovolski

Jubrovolski

Curtidas 0

Respostas

Leanribas

Leanribas

25/02/2005

vc pode fazer assim:

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
if Msg.CharCode = VK_F3 then
if ssShift in KeyDataToShiftState(Msg.KeyData) then
calculadora.Execute;
end;


Falou.

Leandro.


GOSTEI 0
POSTAR