TEDIT Feld Zahlen eingabe

[ljmarkus]

Guten Morgen.

Ich habe mir ein kleine Programm erstellt wo Zahlen von 0-9 auf Button's liegen.

Wenn ich jetzt auf Button 1 drücke soll im Editfeld die 1 erscheinen und wenn dann Button 3
gedrückt wird soll 13 im Editfeld stehen. Max stellen sind 3.

Wie kann ich es anstellen das die Zahlen dann im Editfeld stehen ?


Vielen Dank schon mal für die Hilfe.

lg, markus

[Butch87]

Du machst dir für alle buttons ein OnClick-Ereignis und überprüfst dann den Sender.
Wenn der Sender button1 ist, schreibst du halt die 1 in dein Edit

Delphi-Quellcode:

If Sender = button1 then
  Edit1.Text:= '1'
       .
       .
       .

so wertest du alle buttons aus
Beim onclick der buttons brauchst du nur noch deine eigene onclick methode angeben

[Jürgen Thomas]

Na, das geht doch wohl kürzer. Ich nehme an, dass die Beschriftung dieser Buttons einheitlich '0', '1' usw. ist. Außerdem hat Butch87 vergessen, den bisherigen Inhalt zu behalten:

Delphi-Quellcode:

if Sender is Button 
then begin
  MyNumEdit.Text := MyNumEdit.Text + (Sender as Button).Caption;
end;

Aber klar ist: Man braucht nur eine einzige, gemeinsame Prozedur für alle diese Buttons.

Und die Beschränkung auf 3 Ziffern darfst Du, Markus, mit Length selbst herausfinden.

Jürgen

PS. Wie lange arbeitest Du, Markus, eigentlich schon mit Delphi (wenn ich mir das Zugangsdatum anschaue)? Ein gemeinsames Click-Ereignis für mehrere Buttons, die Beschriftung für einen Button abfragen, den Text für eine Textbox festlegen, Zeichen zusammensetzen zu einem gemeinsamen String sind doch weitgehend Grundlagenwissen.

[Butch87]

achso, jetzt hab ich das mit der "13" verstanden, das soll alles in einem edit zusammengefügt werden!! dann is deine lösung natürlich effizienter

[ljmarkus]

Vielen Dank.

machmal ist die Lösung doch so nah nur man sieht sie nicht.

Danke schön.


lg, markus