用户输入控制仍不理想

Question

是要在EDIT控件中只允许输入数据吗？那就把它的属性加上ES_NUMBER，但这样连小数点也不能输了。

Answer 1

在Edit的exit事件中用Val来判别好了。

Answer 2

if strtointdef(edit1.Text,-9999)=-9999 then
   ///处理字符窜
  else
   ///处理数字;
说明: 首先需要用户不会输入-9999,否则需要换一个数

Answer 3

又:
MaskEdit控件的EditMask属性就是管这个事儿的

Answer 4

用key in ['0'..'9']程序报错（type incompatible，word and char),
选错了事件,
procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;
OnKeyDown Key : word;
procedure (Sender: TObject; var Key: Char) of object;
OnKeyPress Key : Char
StrToInt你判断一下嘛,Edit.Text = ''就什么都不作.

Answer 5

try 
  i:=StrToInt(Edit1.Text);
  是整数,这里做你的处理
except
  //不是整数
  ShowMessage("您输入的不是整数,请重新输入!");
  Edit1.Text:='';
  Edit1.SetFocus;
end;

Answer 6

我一直这么用，没问题。
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['1','2','3','4','5','6','7','8','9','0','.',#8] then
  begin
  end else
  begin
    if key=#13 then  Edit1.SetFocus else
    key:=#0; //过滤掉其他的输入
  end;
end;
除了数字和点以及删除键，其他的全部过滤。
在说数字输入的edit很多呀。（比如rxlib的）另：你的ascii表示有问题。应该是[#48..#57]

Answer 7

haha:上面的程序有一个小问题：
   if key=#13 下一个控件.setfocus else ...

Answer 8

同意kxy与yjq，我一向用OnKeyPress，这样就可以用'0'..'9'判断了，另外yjq有一点说错了, ahu用的应当是OnKeyDown，所以才不能用字符型，因为在OnKeyDown中参数是Key: Word。另外，你的字符集合写成['0'..'9', '.', #8]也可以，既少累些又防止漏数，另外你没有把TAB包含进来喔。我跟yjq写if的习惯不一样，可能我会在if中加not反向判断，避免then中的空语句。
#48..#57实际上等同于'0'..'9'。有一件事我还不明白，keyexit是什么事件，我怎么没见过？好象只有OnExit吧。
Delphi中没有提供判断是否数字串的函数，可以用StrToInt或StrToIntDef做一个，或干脆就一个字符一个字符地判断，但还得判断是否超界，很麻烦。用StrToIntDef时，可以将默认值设为一个空白值：Integer($80000000)，这样就不用担心是否与正常使用值冲突了。

Answer 9

既然程序中用了StrToInt，就是说要输入的是一个整数，那么用StrToInt去判断就是最简单的，而且是绝对可行的！不要把问题复杂化吧！
如果输入的可能是小数，那么用key in '1','2','3','4','5','6','7','8','9','0','.',#8] 也是不够的，否则我输入
'-100'不能通过，输入'100.01.02',却能通过！

Answer 10

我写了一个控件digitEdit, 很好用的.
unit DigitEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;const
  DIGITS = [^H, '0'..'9'];
  
type
  TDigitEdit = class(TEdit)
  private
    fChr : Char;
    { Private declarations }
  protected
    procedure Change; override;
    procedure SetChr(Value : char);
    { Protected declarations }
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    procedure CreateParams(var Params:TCreateParams);override; 
    { Public declarations }
  published
    property Chr : Char read fChr write SetChr default #0;
    { Published declarations }
  end;procedure Register;implementationprocedure TDigitEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style:= Params.Style or ES_RIGHT;
end;procedure TDigitEdit.SetChr(Value : char);
begin
  if fChr <> value then fChr := Value;
end;constructor TDigitEdit.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
end;Destructor TDigitEdit.Destroy;
begin
  inherited Destroy;
end;procedure TDigitEdit.Change;
var
  i, Posi : Integer;
  aText : string;
begin
  inherited Changed;
  if csDesigning in ComponentState then Exit;
  aText := Text;
  Posi := SelStart;
  for i := 1 to Length(aText) do
    if not ((aText[i] in DIGITS) or (aText[i] = fChr))then
      Delete(aText, i, 1);
  Text := aText;
//  SelStart := Length(Text);
  SelStart := Posi;
end;procedure Register;
begin
  RegisterComponents('Standard', [TDigitEdit]);
end;end.