Fórum Habilitar SHIFT-F3 para todo o sistema. #270102
25/02/2005
0
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
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
Curtir tópico
+ 0
Responder
Posts
25/02/2005
Leanribas
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.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)