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.