限定只能输入数字和小数点

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin     case Key of    '0'..'9', #8, #13, #27, '.' : ;  else    begin      MessageBox(Handle, '请输入数字', PChar('输入错误'), MB_OK + MB_ICONINFORMATION);      Key := #0;    end;  end;

end;

 

//只能输入数字和小数点，

//只需要编写edit1的KeyPress事件，edit2的KeyPress事件在下拉菜单选择 Edit1KeyPress即可