使TEdit只接受数字输入

在窗体的OnCreate事件中写
var
  W1: Integer;
begin
  W1 := GetWindowsLong(Edit1.Handle, GWL_STYLE);
  SetWindowsLong(Edit1.Handle, GWL_STYLE, W1 or ES_NUMBER);
end;
 
说明：首先用GetWindowsLong获取Edit1的窗口风格，再用SetWindowsLong为TEdit组件追加设置窗口风格－ES_NUMBER，设置新风格后的TEdit只接受数字输入。