使TEdit只接受数字输入

本实例演示如何让TEdit组件只能够接受数字输入。

向窗体上添加一个TEdit组件，用于显示用户输入的数字。添加组件后的窗体如图8-32所示。

图8-32  添加组件后的窗体
添加窗体初始化代码如下：

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

程序首先通过GetWindowLong 函数取得TEdit组件的窗口风格，然后为TEdit组件追加设置新的窗口风格——ES_NUMBER，设置新风格后的TEdit组件就只接受数字输入了。
程序代码如下：

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
    wl:Integer;
begin
    wl:=GetWindowLong(Edit1.Handle, GWL_STYLE);
    SetWindowLong(Edit1.Handle, GWL_STYLE, wl or ES_NUMBER);
end;
 
end.

保存文件，然后按F9键运行程序，程序运行结果如图8-33所示，在TEdit组件中只能够接受数字。

图8-33  程序运行结果