Delphi: 用API实现数值型Edit

procedure TForm1.FormCreate(Sender: TObject);
var
fstyle: dWord;
begin
fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER)
end;