Hättest ja mal in meine Demo schauen können.
Dann währe das ja schon lange geklärt.
Das Teil beachtet sogar welches Zeichen im laufenden System als komma verwendet wird.
Delphi-Quellcode:
{© by Himitsu @ Delphi-PRAXiS}
Procedure TInputBoxNZForm.Edit1KeyPress(Sender: TObject; Var Key: Char);
Begin
If not (Key in [#08, #13, DecimalSeparator{,}, '0'..'9']) Then Key := #00;
If (Key = DecimalSeparator{,}) and (Pos(DecimalSeparator{,}, Edit1.Text) > 0) Then Key := #00;
End;
Die Suchfunktion dieser Seite ist übrigens sehr gut.