: Integração Botões e teclado

[bruno_asouza 0]

Estou fazendo uma calculadora simple, só para aprender mais a usar o delphi, mas queria fazer q quando precionar a telha no teclado numerico, o botão corespondente no programa execute mesma animação de quando se clica sobre ele. Poderiam por favor me ajudar?

[marcio.theis 3]

Uma das formas de se fazer isto é usando componentes do tipo TSpeedButton, você precisa selecionar todos os botões que vão ser utilizados na calculadora, alterar a propriedade AllowAllUp para True e seta a propriedade GroupIndex deles para 1. Depois você pode fazer no OnKeyDown do formulário o controle, tipo:

 

Crie a seguinte procedure:

 

procedure TForm1.EfetuaSimulacaoBotao(botao: TSpeedButton);beginbotao.Down:=True;botao.Refresh;Sleep(100);botao.Down:=False;botao.Refresh;end;

E no evento OnKeyDown:

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begincase key of	97: EfetuaSimulacaoBotao(btnValor1); //Tecla 1	98: EfetuaSimulacaoBotao(btnValor2); //Tecla 2	99: EfetuaSimulacaoBotao(btnValor3); //Tecla3	end;end;

No exemplo fiz somente até a tecla 3, você somente precisa criar o controle para as demais...