editfeld nur zahlen und komma?

[arcangel]

hab d7^^ aber danke für den hinweis

hab mein problem gerade gelöst... hier das ergebnis:

Delphi-Quellcode:

   If not(key in [#48..#57,#8, #44])
   then key := #0;
If (Key = ',') and (edteinkaufspreis.Text = '') Then key := #0;
If (Key = ',') and (pos(',',edteinkaufspreis.Text) > 0) Then key := #0;