procedure TForm2.FormCreate(Sender: TObject);
var
wl:integer;
begin
 wl:=getwindowlong(edit1.Handle,gwl_style);
 setwindowlong(edit1.Handle,gwl_style,wl or es_number)  ;
end;

end.

procedure TForm2.FormCreate(Sender: TObject);
var
wl:integer; //定义int型变量
begin
wl:=getwindowlong(edit1.Handle,gwl_style); 获取相关窗口的wl
setwindowlong(edit1.Handle,gwl_style,wl or es_number); 重新设置wl窗口风格wl or es_number 进行位或操作 意思就是在本来的风格基础上 加一个风格
end;

end.