Nur Zahlen im TEdit, aber auch Kommazahlen

[And1.G]

Ich hätte gerne ein Edit Feld, das nur Zahlen erlaubt. Das hab ich dann dank der DP auch schon soweit hinbekommen, dass Integerwerte angenommen werden. Ich will aber auch gerne Kommazahlen erlauben, also vom Typ Real.

Der Code sieht bis jetzt so aus:

Delphi-Quellcode:

  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle,
    GWL_STYLE) or ES_NUMBER);

Wenn ich aber jetzt das Komma oder den Punkt eingebe, wird das ignoriert.
Kann man den Code dementsprechend ändern, dass das Komma akzeptiert wird?

Die Lösung, die Eingabe manuell zu überprüfen hatte ich auch schon im Auge, gefällt mir aber irgendwie nicht so...