GARANTIR DESCONTO

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


Jubrovolski

Jubrovolski

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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar