设edit的什么属性，才能只允许输入数字？？？

Question

请参考：
http://www.csdn.net/expert/topic/771/771023.xml?temp=.7082788

Answer 1

都说过N次了，也不怕再说一次；
Edit.KeyPress事件；
if Not (Key  in ['0'..'9',#8,#13,#46] ) then
  Key := #0;

Answer 2

自己写代码控制，如果我的楼上的楼上的，或者采用MaskEdit 控件

Answer 3

//参考
http://www.csdn.net/Expert/TopicView1.asp?id=494420procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Edit1.Handle,
    GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
end;