[Delphi] Auto Click

[XxKiLLeRsSxX 0]

Galera eu fiz meu autoclick no delphi ficou certinho, mais eu só não consegui botar uma tecla de atalho ..

 

Tipo eu coloco os miliseconds la e tenho que clicar no botão "Ligar", mais eu quero uma tecla de atalho, ou seja eu apertando apenas F4 ative o autoclick e se apertar novamente F4 desative, sem ter que ir no autoclick e apertar o botão "Desligar" ..

 

Gostaria de que alguém me ajudasse e me explicasse passo a passo como fazer isso, ficarei muito grato !!

 

obrigado pela atenção de todos !

 

 

---

[Fr33dom 1]

Galera eu fiz meu autoclick no delphi ficou certinho, mais eu só não consegui botar uma tecla de atalho ..

 

Tipo eu coloco os miliseconds la e tenho que clicar no botão "Ligar", mais eu quero uma tecla de atalho, ou seja eu apertando apenas F4 ative o autoclick e se apertar novamente F4 desative, sem ter que ir no autoclick e apertar o botão "Desligar" ..

 

Gostaria de que alguém me ajudasse e me explicasse passo a passo como fazer isso, ficarei muito grato !!

 

obrigado pela atenção de todos !

 

amigo podes experimentar assim , penso que resulta :

mete isto nas variaveis globais : verificacao:integer;

no Oncreate do programa mete :

procedure TForm1.FormCreate(Sender: TObject);

begin

verificacao:=0;

end;

Agora :

1º Passo - Na propriedade "KeyPreview " do Form marque a opção "True".

2º Passo - No evendo "OnKeyDown" do Form informe o Código abaixo :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

Begin

if key = vk_F4 then

if verificacao=0 then

begin

Label1.Caption:='Aberto';

verificacao:=1;

exit;

end;

if verificacao=1 then

begin

Label1.Caption:='Fechado';

verificacao:=0;

exit;

end;

 

Agora muda como queiras utilizar , testado e a funcionar . :yes:

['Hylander 0]

Errado, checar pressionamento de teclas através do evento OnKeyDown do formulário apenas detectará se a aplicação estiver em foco, use a API GetAsyncKeyState() para verificar se a tecla foi pressionada.