Ich kenne mich in Foren leider noch nicht so gut aus, was das Schreiben betrifft
Codeformatierung ? über Code einfügen ? sieht alles gleich aus
Ahh ... hat geklappt !
Umsetzung für Sonderzeichen ????
Hier ?
Code:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// Tasteneingabe nur Numerisch
if not (key in [#8,#13,#48..#57]) then key := #0;
end;