Hesap Makinesinde Klavyenin sayısal tuş takımını kullanmak

[izmirlikemal]

Merhaba Değerli dostlarım..

Yapmakta olduğum bir programın içinde yine kendimin tasarladığı Bilimsel hesap makinesini kullanmak istiyorum.
Karşılaştığım problem :
Klavyenin sağ yanında bulunan sayısal tuş takımını ve aritmetik işlemlerde kullandığımız +,-,/,* tuşlarını kullanmak.
İnternet de bulduğum örneklerde bu ilişkiye rastlayamadım.
Yardımcı olacak ve benimle bilgisini paylaşacak arkadaşlarıma sonsuz teşekkürlerimi arz ederim.

[xxxjedixxx]

KeyPress eventi ile tuş yakalama konusunda, Nümerik klavyeden + ya basmak ile diğer taraftaki +'ya basmak (Shift 4) arasında bir fark yoktur. Sonuç olarak sistem +'ya basıldı diye bir event oluşturur. Aşağıya küçük bir örnek yazdım. Eğer yine tuş takımı çalışmıyorsa "Num Lock" ile ilgili bir problemin vardır.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '+' then
  begin
    ShowMessage('+ ya basıldı');
  end;
  if Key = '-' then
  begin
    ShowMessage('- ye basıldı');
  end;
end;

[Lord_Ares]

Farklı bir yol olarak şöyle bir fikir belki işini kolaylaştırır. Windowstaki hesap makinesini istediğin bir formun içine gömerek handle değerlerinden yararlanarak tuş gönderim hesap makinesinin hazır işlemlerinden yararlanarak kullanabilirsin.
Bunun için Mrmarman üstadımızın hesap makinesine tuş gönderme örneğini buradan

viewtopic.php?t=18465#108426

Burada da yine Mrman hocamızın hesap makinesini form içine alma örneğini inceleyebilirsn

viewtopic.php?f=2&t=19091&hilit=hesap+makinesi

Kolay gelsin