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

markieren

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!

Edit-Feld nur Zahlen erlauben

Edit-Feld nur Zahlen erlauben

Re: Edit-Feld nur Zahlen erlauben

Re: Edit-Feld nur Zahlen erlauben

Re: Edit-Feld nur Zahlen erlauben

Forumregeln

Niko Registriert seit: 23. Jun 2003 416 Beiträge Delphi 2006 Professional	#2 Re: Edit-Feld nur Zahlen erlauben 10. Jul 2004, 18:34 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. "Electricity is actually made up of extremely tiny particles called electrons, that you cannot see with the naked eye unless you have been drinking." (Dave Barry)
	Zitat

StefanDP Registriert seit: 11. Apr 2004 294 Beiträge	#4 Re: Edit-Feld nur Zahlen erlauben 10. Jul 2004, 19:05 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!
	Zitat