TEdit.NumbersOnly - unterschiedliches Verhalten Vista/XP

[Andreas L.]

Hi,

ich möchte in einem TEdit nur Zahlen zulassen. Jetzt hat ja das TEdit von Delphi 2009 die Eigenschaft NumbersOnly, die unter Vista auch super funkioniert. Unter XP kann man zwar keine Buchstaben eintippen, diese aber über STRG+V bzw. Rechtsklick trotzdem einfügen.

Im Setter dieser Eigenschaft wird mit SetWindowLong das Edit entsprechend eingestellt:

Delphi-Quellcode:

      if FNumbersOnly then
        SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER)
      else
        SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not ES_NUMBER);

Liegt das Problem hier an WinXP oder fehlt lediglich noch ein Parameter bei SetWindowLong? Oder muss ich doch selber das OnKeyPress bzw. OnChange-Ereignis behandeln?

Schöne Grüße,
Andreas