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