Question

delphi TEdit怎样只输入数字?

Answer 1

在TEidt的KeyDown事件中，添加以下代码：
if not Key in [0..9] then
Key := #0;

Answer 2

setwindowlong(edit1.Handle,gwl_style,getwindowlong(edit1.Handle,gwl_style) or es_number);