关于控件动态生成的问题(100分)

我向动态生成一个TEdit控件,在控件中限制输入,只能输入数字.请问在程序中该如何实现.

为什么不用MaskEdit?

我举一例，可能需要修改，仅供参考.
var
edit:Tedit;
begin
edit:=Tedit.create(self);
edit.name:='sdsdf';
edit.onkeypress:=edit1.onkeypress;
edit.left:=20;
edit.width:=30;
edit.top:=0;
eidt.height:=20;
.....
end;

edit1的 onkeypress事件代码
begin
if ord(key)<ord('0') or ord(key)>ord('9') then
key:=#0;
end;

其中edit1是静态的。visible=false

去看superMMX的"一行解决"。

edit 中只输入数字
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or
ES_NUMBER);

//by SuperMMX

多人接受答案了。