TEDIT Feld Zahlen eingabe

[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.