让edit只接受数字输入

Delphi 2004-12-29 23:53

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

标签集:TAGS:

回复Comments() 点击Count()

回复Comments

{commentauthor}

{commenttime}

{commentnum}

{commentcontent}

作者:

{commentrecontent}