[Dúvida]Ajuda-Tecla de Atalho

[Vator 10]

Fiz um programa no Delphi,quase pronto,coloquei na Tray Icon,e desejo que ele fique ativo,e eu pressione uma tecla(F6,no caso) e ele inicie uma ação,depois farei F7 parar a ação.

 

Alguém pode me ajudar?

 

Obrigado. :D

[raniely 0]

Da pra fazer assim apesar de ser meio que uma gambiarra, tem outra

forma utilizando uma API do windows, mas eu não sei fazer.

-Coloque um Timer e mude o intervalo para 1

depois coloque este código nele:

 

procedure Tfrm1.Timer1Timer(Sender: TObject);

var

i : byte;

begin

for i:=1 To 222 do

begin

if GetAsyncKeyState(i)=-32767 then

begin

case i of

117 : showmessage('F6 PRESSIONADO'); // 117 é o codigo virtual da tecla F6

118 : showmessage('F7 PRESSIONADO'); // 118 é o codigo virtual da tecla F7

end;

end;

end;

end;

 

Se você tiver feito um atalho na aplicação para executar a ação,

recomendo que quando a aplicação estiver com foco deixe o Timer desativado

(se precisar usar mais de uma linha de comando troque o Case por IF)

 

Se precisar de outras Teclas aqui esta a tabela de teclas virtuais.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Vator 10]

Obrigado :D

 

E;

 

Tem como fazer isto mesmo com uma outra janela aberta,tipo o Firefox, aí quando pessionar Ctrl + F6 executar a ação,com o ícone na bandeja?

 

Ninguém ? :eek: :eek:

[raniely 0]

Sim desse jeito que te passei é exatamente isso,

 

"Tem como fazer isto mesmo com uma outra janela aberta,tipo o Firefox, aí quando pessionar Ctrl + F6 executar a ação,com o ícone na bandeja?"

 

se a janela da sua aplicação não estiver ativa, mesmo que pressione o atalho vai executar a ação, agora quando ela estiver ativa você pode configurar o atalho na propriedade 'shortcut' que eh muito mais simples =)

[Vator 10]

Aquela,precisava a janela ativa para executar a ação...

Coloquei-a no outro projeto meu;

Pesquisei essa propriedade 'ShortCut' e achei o que precisava,ele executa mesmo sem a janela ativa...

 

Muito obrigado,Raniely!

 

Abraço.

 

~Vator