Como fazer com que eu aperte uma tecla e aconteça uma ação?

[SeaCrusher 0]

Eu queria fazer algo como um auto click, que vc aperta um botao no teclado e ele faz alguma coisa no programa. Thanks

 

eu vi isso aqui: http://www.webcheats.com.br/forum/delphi-vb/989920-delphi-fazer-hotkeys.html

 

tentei fazer uma ação simples e nao consegui olha:

 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

if(key = #71)then button1.Enabled := false;

end;

 

e

 

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

Shift: TShiftState);

begin

if(key = VK_F2)then button1.Enabled := false;;

end;

 

tentei esses 2, um de cada vez, o programa compila, so que quando eu teclo o botao ( f2 ) nao acontece nada

 

DELPHI 7

[ℛiqu∊ 16]

Em qual linguagem de programação?

[SeaCrusher 0]

delphi, desculpa nao informar, esqueci kk

[SeaCrusher 0]

alguem? eu ja tinha feito isso... só que perdi o codigo, é bem simples...

[☢|EXPL01T3R|☣ 50]

Primeiro coloque procedure WmHotKey(var Msg:TMessage); message WM_HOTKEY; nos types da sua aplicação.

 

 

Agora vamos colocar as funções da procedure, coloque:

 

 

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

• Entre
• ou
• Cadastre-se

 

 

 

Declare agora, no oncreate do form:

 

 

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

• Entre
• ou
• Cadastre-se

 

 

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

• Entre
• ou
• Cadastre-se

 

 

 

Agora, como você colocou para registrar quando

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

• Entre
• ou
• Cadastre-se

, você tem que por para disregistrar quando finalizar o programa, então coloque no ondestroy do form:

Código:

 

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

• Entre
• ou
• Cadastre-se

[SeaCrusher 0]

@EDIT

 

era só isso:

 

if(GetAsyncKeyState(112) < 0) then

 

no caso ai é o f1

[AceStryker 32]

GetAsyncKeyState() se quiser uma hotkey que mesmo se sua janela estiver minimizada ele reconhece ou filtrar a WM_CHAR da sua janela caso só funcione se sua janela estiver em foco