Taschenrechner

[patti]

Hier mal eine kurze Idee, wie ich es wohl machen würde:

1. Ein Edit auf dem Formular platzieren, in edInput umbenennen und ReadOnly auf true setzen.
2. 9 Images nehmen und ebenfalls auf dem Formular platzieren und entsprechend anordnen.
3. Den Images erstmal aussagekräftige Namen geben, z.B. imgZahl1 - imgZahl9
4. Den Images die entsprechenden Bilder zuweisen.
5. Den Images über den OI Tags zuweisen: Dem Bild mit der Zahl 1 den Tag 1 zuweisen, der 2 den Tag 2 usw.
6. Einem Image eine OnClick-Routine hinzufügen. Dazu im OI auf "Ereignisse" wechseln und hinter "OnClick" einen Doppelklick machen. Im Quelltext in deiner OnClick-Routine dann folgendes:

edInput.Text := edInput.Text + inttostr((Sender as TImage).Tag); 7. Diese Routine musst du nun allen 9 Images zuweisen. Dazu wählst du sie alle auf deinem Formular aus und wählst aus der Liste bei den OnClick-Ereignissen im OI imgZahl1Click aus. Somit rufen alle neun Images die gleiche Routine auf.

Neu für dich dürfte der letzte Teil des Codes sein. inttostr() ändert eine Zahl (integer) in eine Zeichenkette (string) um. Sender ist der "Aufrufer" der Routine, also je nach Image eben diese Komponente. Den Tag des Images legst du ja zuvor für alle Zahlen fest. Je nach "Aufrufer" ist dieser also anders und beinhaltet immer die Zahl.

Versuch es mal so, wie ich es dir beschrieben habe. Wenn alles klappt, dann kommt der nächste Schritt mit den Rechenzeichen. Wenn was unklar sein sollte, einfach fragen

Patti