Hi!
Das wäre meine Variante...
Delphi-Quellcode:
procedure TextFeldKeyPress(Sender: TObject; var Key: Char);
var allow : string;
begin
//Zahlen die erlaubt sind
allow := '1234567890,';
//Prüfe ob Key erlaubt ist
if Pos(Key,allow) = 0 then Key := #0;
end;
Beachte: Das Einfügen aus dem Clipboard wird dabei nicht kontrolliert!
lg