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

[DeddyH]

Lies mal unter Edit Control Styles nach.

Zitat:

ES_NUMBER
Allows only digits to be entered into the edit control. Note that, even with this set, it is still possible to paste non-digits into the edit control.

Interessant ist auch der Beitrag am Ende, da wird genau das beschrieben, was Du auch beobachtet hast.

[Andreas L.]

Das ist ja blöd. Naja, mach ichs halt per Hand