(Resolvido) Precionar Botão

[tux_boy]

Pessoal, estou fazendo uma calculadora e queria fazer com que quando eu precionasse o botão de + do teclado, o programa executasse a procedure que criei para o botão de soma no formulário.

Só que quando preciono o botão no teclado, ele apernas escreve + no edt que utilizo como visor.

o código que eu usei foi:

procedure TForm1.btnmaisKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key=43 then
   btsoma;
end;

alguém pode me ajudar?

obrigado!

Editado Setembro 18, 2007 por Micheus
Adicionado o delimitador de código [code] [/code]

[Guest Visitante]

Pessoal, estou fazendo uma calculadora e queria fazer com que quando eu precionasse o botão de + do teclado, o programa executasse a procedure que criei para o botão de soma no formulário.

Só que quando preciono o botão no teclado, ele apernas escreve + no edt que utilizo como visor.

o código que eu usei foi:

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

Shift: TShiftState);

begin

if Key=43 then

btsoma;

end;

alguém pode me ajudar?

obrigado!

para saber o número da tecla apertada, coloquei no OnkeyUp do componente o seguinte código:

ShowMessage(IntToStr(Key));

Assim, você verá que a tecla + do teclado é 107.

[Micheus]

tux_boy, você pode começar por habilitar a propriedade KeyPreview (true) do form da sua calculadora. Isto fará com que todos os eventos resultantes do pressionamento de uma tecla, sejam enviados primeiro para o respectivo tratador de evento do form: OnKeyUp, OnKeyDown, OnKeyPress.

No evento OnKeyPress o parâmetro recebido é um caracter (ascii), já nos outros dois eventos o parâmetro é um WORD (virtual key code)

Para sua aplicação, acredito que utilizar OnKeyPress, seria uma boa opção, pois você poderia testar o código ascii diretamente (Key = '+') em um if ou em um case tipo:

case key of
  '+' : ...
  '-' : ...
  '*' : ...
  '/' : ...
end;

A título de informação fica um link para a tabela de códigos virutais Virtual Key Codes (ref. About.com)

Tem um post não muito antigo com links de calculadoras em delphi caso lhe interesse - post

Abraços

[tux_boy]

Obrigado pessoal.

Resolveu o meu problema!!!

Abraços!