Hallo Ihr Lieben,
ich hab mir zu Übungszwecken nen kleinen Taschenrechner programmiert. Ich frage mich nur warum das hier nicht funktioniert:
Delphi-Quellcode:
procedure TMainform.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case chr(key) of
'1': Btn1Click(nil);
'2': Btn2Click(nil);
'3': Btn3Click(nil);
'4': Btn4Click(nil);
'5': Btn5Click(nil);
'6': Btn6Click(nil);
'7': Btn7Click(nil);
'8': Btn8Click(nil);
'9': Btn9Click(nil);
'0': Btn0Click(nil);
'+': BtnaddClick(nil);
'-': BtnsubClick(nil);
'*': BtnMultiClick(nil);
'/': BtndivClick(nil);
'=': BtresultClick(nil);
',': BtnpointClick(nil);
end;
end;
Ich hab erst überlegt ob ich den überhaupt reinstelle, aber vielleicht kann ja Jemand was damit anfangen oder hat ein wenig Kritik für mich
//Edit 09.02.08: ich hab nochmal die letzte Version angehängt. Und widme mich jetzt erstmal der
MDI, wer Noch fragen oder Anregungen hat, immer her damit ^^