Edit per SetWindowLong auf Zahleneingaben begrenzen geht net

[Pr0g]

Hallo,

ich habe auf einer Form ein TEdit und wollte dies per

Delphi-Quellcode:

  // EdtNeubesuchNach auf Zahlen beschränken
  SetWindowLong(
    EdtNeubesuchNach.Handle,
    GWL_STYLE,
    GetWindowLong(EdtNeubesuchNach.Handle, GWL_STYLE) or ES_NUMBER);

auf Zahleneingaben beschränken, doch es klappt in der Form nicht. Wenn ich eine anderen Form aus dem Programm, oder ein anderes Projekt nehmen, geht alles problemlos. Nur in der Form klappt der Code nicht. Woran kann das liegen?

MfG Pr0g

[Christian Seehase]

Moin Andreas,

der Fehler muss woanders liegen, denn das klappt mit Deinem Code problemlos.
Ist es wirklich ein TEdit oder ein Fremdkomponente?

[Pr0g]

Es ist ein ganz normales TEdit. Ich habe nun noch ein bisschen getestet und scheint zu klappen, wenn ich den Code im nachhinein ausführe also bspw. OnKeyDown, bzw. jetzt habe ich ihn im OnShow, das geht auch (in der überschrieben ShowModal gings nicht).

Im OnShow könnte ich es lassen, damit habe ich eigentlich keine Probleme, mich wundert nur, dass es im OnCreate nicht geht. Es ist eigentlich ne ganz normale Form und da habe ich auch nichts überschrieben oder so.

[mirage228]

Hi,

vielleicht hast Du OldCreateOrder der Form auf TRUE, dann werden die Komponenten nämlich erst nach dem OnCreate Ereignis erstellt.
Demnach wird der Aufruf von SetWindowLong auf nicht erfolgreich sein in dem Fall.

mfG
mirage228

[Christian Seehase]

Moin Andreas,

merkwürdig.
Ich habe es gerade noch einmal getestet.
Neues Projekt, ein TEdit auf das Formular und ES_NUMBER eingestellt:
Funktioniert auf Anhieb.

@Mirage:
Und das unabhängig von OldCreateOrder

[mirage228]

Zitat von Christian Seehase:

@Mirage:
Und das unabhängig von OldCreateOrder

Hm... war jetzt auch nur eine Vermutung von mir.
Aber der Code müsste auf jeden Fall funktionieren. Wie schaut denn der Wert von Handle aus? Gibt IsWindow dafür "true" zurück?

mfG
mirage228

[Pr0g]

IsWindow gibt True zurück, das Ding hat nen Handle. Ich weiß nicht was es mit der Form auf sich hat, bei anderen gehts ja auch. Aber solange es im OnShow geht bin ich schon zufrieden.