Taschenrechner über Tastatur bedienen

[dominikkv]

ich würd nun so vorgehen:
1. den gesamten teil der in Button1Click steht mit {} ausklammern und ein einfaches showmessage('hallo'); unten reinschreiben

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
{  if (edit1.text='0') or (operation=true) then
  begin
    edit1.text:='1';
    operation:=false;
  end
  else edit1.text:=edit1.text+'1';}
showmessage('Hallo');
end;

dann starten und einmal ausprobieren.
wenn Hallo kommt weißt du das es an der Button1Click prozedur liegt...
wenn nein dann änder die FormKeyPress Procedure:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); 
begin 
 // if key='1' then button1.click; 
showmessage('huhu');
end;

wieder starten und irgendeinen knopf auf der tastatur drücken... wenn huhu kommt weißt du das die procedur aufgerufen wird und du kannst zum nächsten schritt gehen:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); 
begin 
  {if key='1' then} button1.click; 
end;

jetzt müsste immer wenn du ne taste drückst die prozedur aufgerufen werden (also Hallo erscheinen)
wenn nicht dann liegts an dem if key='1' then

mfg.dominik