ActiveDelphi

[betoctu]

Queria fazer com q o programa executasse uma tarefa enquanto uma tecla (ou mais teclas) estivesse precionada e quando essa tecla deixasse de ser pressionada o programa deveria parar de fazer a tarefa.
Tipo assim
Enquanto a tecla \"A\" estiver pressionada faça issu
Enquanto as teclas \"A\" e \"B\" estiverem pressionadas faça aquilo
Se a tecla precionada for diferente de \"A\" ou Diferente de \"B\" ou diferente de \"A\" e de \"B\" faça outra ação

Grato RCF

[weberdamasio]

Muda a propriedade KeyPreview do formulário para TRUE, depois utilize os eventos KeyPress, KeyDown, e KeyUp para fazer o que você desejar.

[rodrigoprado]

Use o Keypress, down ou up assim como o WebErdamasio falou, faça uma simulação do que deseja use um botao como se fosse a tecla A e um outro como se fosse o B, veja os funcionando antes... ai vc apenas implemente nas propriedades do form ok...

a vc tem que ter o codigo Ascii das teclas.... tipo p/ descobrir utize um função...
1. ABRA UM NOVO PROJETO
2.CRIE UM EDITBOX NO FORM
3.POE A TEXT DO EDIT VAZIA
4. vá no evento onkeydown do edit e coloque

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
FORM1.CaPTION:=inttostr(key);
end;

blz... falow



_________________
- Compartilhe seus conhecimentos -