Kleiner Taschenrechner

**dust258**

Hallo Ihr Lieben,

ich hab mir zu Übungszwecken nen kleinen Taschenrechner programmiert. Ich frage mich nur warum das hier nicht funktioniert:

zusammenfalten · markieren

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 ^^

Kleiner Taschenrechner

Kleiner Taschenrechner

Forumregeln