Zitat von
be-2801:
[...]
Zitat von
arne99:
Bitte limitiere das Editfield fuer Betrag auf "Zahlen".
Bei Betrag sind deshalb Strings möglich, da ich es noch nicht geschafft habe bei der Eingabe nur Zahlen zu erlauben und im Forum hab ich keine Variante gefunden, die wirklich funktioniert.
Wenn du weißt wie es funktioniert, könntest du den Quellcode mal hier reinstellen?
Dankö.[...]
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key='1') or (key='2') {...} then showmessage('Zahl wurde eingegeben')
else showmessage('Keine Zahl eingegeben');
end;
Einfach, hässlich, aber es geht
