本实例演示如何让TEdit组件只能够接受数字输入。
添加窗体初始化代码如下:
程序代码如下:
向窗体上添加一个TEdit组件,用于显示用户输入的数字。添加组件后的窗体如图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组件中只能够接受数字。