[Dúvida] Auto-Tecla

['Leσzin 0]

Bom, eu gostaria de saber, um códiga, que faça com que quando eu aperte a tecla F8(exemplo), faça com que um button seja clicado.

Exemplo: Em meu form tem um Button, nomeado como Button1, com seu devido código, ao teclar a tecla F8, esse button receba um click(Button1.Click;). Agradeço desde já.

 

Abraços.

[ℛiqu∊ 16]

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

• Entre
• ou
• Cadastre-se

 

Neste vídeo ensinei como detectar o pressionamento de teclas com e sem o **** estar minimizado.

[C£rberus 1]

Olha eu fiz este código:

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

• Entre
• ou
• Cadastre-se

 

Explicação:

 

Ao clicar na tecla F8 será exibida uma mensagem "Tecla F8 foi pressionada"

 

A acção foi introduzida no eveno OnKeyDown do Button ficando assim:

 

if (Key = VK_F8) then

comando a ser executado...

end;

 

Ou também podes usar este código super fácil no event OnKeyDown do button

if (Key = VK_F8) then

Button1.Click;

[iMelo~' 19]

Você pode usar o seguinte código:

 

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

• Entre
• ou
• Cadastre-se

 

Mas o else ShowMessage será dificilmente usado se a questão é só um F8 você pode adicionar a questao tipo assim

Se o checkbox1 tiver Enabled True então o F8 ser auto clicado é bom

[C£rberus 1]

Você pode usar o seguinte código:

 

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

• Entre
• ou
• Cadastre-se

 

Mas o else ShowMessage será dificilmente usado se a questão é só um F8 você pode adicionar a questao tipo assim

Se o checkbox1 tiver Enabled True então o F8 ser auto clicado é bom

 

Creio que ele já tenha o Button1 configurado (com os comandos já definidos), e ele quer que ao pressionar F8 as ações fossem executadas como se tivesse pressionado no Button1, para isto ele precisa apenas de usar isto:

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

• Entre
• ou
• Cadastre-se

Isto faz com que F8 receba as ações de Button1, criado assim a tal Auto Tecla que ele quer.

 

Não precisa de Else nenhum, pois é apenas um botão para programa normal não precisa de mensagem/código de retorno contrário.

 

OBS: o código deve ser adicionado no Event OnkeyDown do Button1.

[gaabscps 8]

Além dos citados, tem um componente nativo no Delphi para isso.

Essa vídeo aula ensina:

 

[Grilo~* 0]

GetAsyncKeyState(), pega a tecla precionada em todo o computador independente do F orm está minimizado ou não..

[Lf' 7]

Bom, você também pode fazer o seguinte:

 

Ir até o Properties > keypreview da form e mudá-la para true e no event OnKeyDown pode colocar o seguinte:

 

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

• Entre
• ou
• Cadastre-se

 

vk_return = Enter

vk_F1 = F1

vk_F2 = F2

 

e assim sucessivamente.. acho que já da certo, abraços!

abaixo uma lista completa:

 

VK_LBUTTON Left mouse button

VK_RBUTTON Right mouse button

VK_CANCEL Control+Break

VK_MBUTTON Middle mouse button

VK_BACK Backspace key

VK_TAB Tab key

VK_CLEAR Clear key

VK_RETURN Enter key

VK_SHIFT Shift key

VK_CONTROL Ctrl key

VK_MENU Alt key

VK_PAUSE Pause key

VK_CAPITAL Caps Lock key

VK_KANA Used with IME

VK_HANGUL Used with IME

VK_JUNJA Used with IME

VK_FINAL Used with IME

VK_HANJA Used with IME

VK_KANJI Used with IME

VK_CONVERT Used with IME

 

VK_NONCONVERT Used with IME

VK_ACCEPT Used with IME

VK_MODECHANGE Used with IME

VK_ESCAPE Esc key

VK_SPACE Space bar

VK_PRIOR Page Up key

VK_NEXT Page Down key

VK_END End key

VK_HOME Home key

VK_LEFT Left Arrow key

VK_UP Up Arrow key

VK_RIGHT Right Arrow key

VK_DOWN Down Arrow key

VK_SELECT Select key

VK_PRINT Print key (keyboard-specific)

VK_EXECUTE Execute key

VK_SNAPSHOT Print Screen key

VK_INSERT Insert key

VK_DELETE Delete key

VK_HELP Help key

 

VK_LWIN Left Windows key (Microsoft keyboard)

VK_RWIN Right Windows key (Microsoft keyboard)

VK_APPS Applications key (Microsoft keyboard)

VK_NUMPAD0 0 key (numeric keypad)

VK_NUMPAD1 1 key (numeric keypad)

VK_NUMPAD2 2 key (numeric keypad)

VK_NUMPAD3 3 key (numeric keypad)

VK_NUMPAD4 4 key (numeric keypad)

VK_NUMPAD5 5 key (numeric keypad)

VK_NUMPAD6 6 key (numeric keypad)

VK_NUMPAD7 7 key (numeric keypad)

VK_NUMPAD8 8 key (numeric keypad)

VK_NUMPAD9 9 key (numeric keypad)

 

VK_MULTIPLY Multiply key (numeric keypad)

VK_ADD Add key (numeric keypad)

VK_SEPARATOR Separator key (numeric keypad)

VK_SUBTRACT Subtract key (numeric keypad)

VK_DECIMAL Decimal key (numeric keypad)

VK_DIVIDE Divide key (numeric keypad)

VK_F1 F1 key

VK_F2 F2 key

VK_F3 F3 key

VK_F4 F4 key

VK_F5 F5 key

VK_F6 F6 key

VK_F7 F7 key

VK_F8 F8 key

VK_F9 F9 key

VK_F10 F10 key

VK_F11 F11 key

VK_F12 F12 key

VK_F13 F13 key

VK_F14 F14 key

VK_F15 F15 key

 

VK_F16 F16 key

VK_F17 F17 key

VK_F18 F18 key

VK_F19 F19 key

VK_F20 F20 key

VK_F21 F21 key

VK_F22 F22 key

VK_F23 F23 key

VK_F24 F24 key

VK_NUMLOCK Num Lock key

VK_SCROLL Scroll Lock key

VK_LSHIFT Left Shift key (only used with GetAsyncKeyState and GetKeyState)

VK_RSHIFT Right Shift key (only used with GetAsyncKeyState and GetKeyState)

VK_LCONTROL Left Ctrl key (only used with GetAsyncKeyState and GetKeyState)

VK_RCONTROL Right Ctrl key (only used with GetAsyncKeyState and GetKeyState)

 

VK_LMENU Left Alt key (only used with GetAsyncKeyState and GetKeyState)

VK_RMENU Right Alt key (only used with GetAsyncKeyState and GetKeyState)

VK_PROCESSKEY Process key

VK_ATTN Attn key

VK_CRSEL CrSel key

VK_EXSEL ExSel key

VK_EREOF Erase EOF key

VK_PLAY Play key

VK_ZOOM Zoom key

VK_NONAME Reserved for future use

VK_PA1 PA1 key

VK_OEM_CLEAR Clear key

['Leσzin 0]

Obrigado à todos ai, alguns funcionaram, mas não como eu desejava, e thanks ao DeathTheKid, que funcionou perfeitamente do jeito que eu queria.

Pode fechar, resolvido rs.

 

Abraços.

[Lf' 7]

Ok, que bom que deu certo, um obrigado a todos que ajudaram na dúvida, como ela já foi esclarecida:

Tópico Fechado!