Delphi 通过api强制TEdit仅接受数字输入

本文整理自网络，侵删。

 
procedure SetEditNumeric(Handle: THandle);
begin
  SetWindowLong(Handle, GWL_STYLE,
    GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER);
end;


//点击按钮后，edit1 只能输入数字
procedure TForm2.Button1Click(Sender: TObject);

begin
SetEditNumeric(edit1.Handle);
end;

 

相关阅读 >>

Delphi 如何屏蔽alt+f4

Delphi函数定时

Delphi 比较俩组mac地址

Delphi 获取internet缓存文件

Delphi获取网卡mac地址多个方法

Delphi 给动态数组添加一个元素

Delphi 获取一个文件夹下的一级目录

Delphi indy smtp 发送邮件

Delphi android权限

Delphi 取得dll所在目录

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 通过api强制TEdit仅接受数字输入