使TEdit只接受数字输入:
procedure TForm1.FormCreate(Sender:Tobject);
var
w1:Integer;
begin
w1:=GetWindowLong(Edit1.Handle,GWL_STYLE);
SetWindowLong(Edit1.Handle,GWL_STYLE,w1 or ES_NUMBER);
end;
只接受数字和小数点输入:
procedure TForm1.Edit1KeyPress(Sender:TObject;var Key:Char);
begin
if not (key in ['0'..'9','.']) then
begin
key:=#0;
end;
end;