Edit-Feld nur Zahlen erlauben

[StefanDP]

Hi!
Ich hab ein Edit nonVCL und möchte im prinzip folgenden code realisieren:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
     if not (key in [#8,#48..#57]) then key:=#0; 
end

wie mach ich das jetzt nonvcl?
wenn ich mit meiner wndproc WM_KEYDOWN abfrage, springt das nur an, wenn der focus aufm fenster ist und nicht, wenn der focus im edit ist, bzw. das edit aktiv ist.

stefan

[Niko]

Hi,

du musst die WM_KEYDOWN-Message des Edits verarbeiten.

Das Stichwort hierzu heißt Subclassing. Dazu findest du Informationen in Luckies Tutorials und im PSDK.

[mirage228]

Hi,

oder benutze den Stil ES_NUMBER

Delphi-Quellcode:

SetWindowLong(Edit1Handle, GWL_STYLE, GetWindowLong(Edit1Handle,
    GWL_STYLE) or ES_NUMBER);

Edit1Handle ist dann durch das Handle des Edits zu ersetzen.

mfG
mirage228

[StefanDP]

danke! Ich hab das ES_NUMBER einfach in das dwStyle von createwindowex genommen! funzt perfekt!

ABer des mit dem Subclassing werd ich mir auf jeden fall trotzdem anschauen!