Question

delphi edit控件使用方法

我想让一个edit控件只能输入数字 不知道该怎么搞

Answer 1

包括小数点吗？不包括的话，将下列代码写在Edit控件的OnKeyPress事件上

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key<'0') OR (Key>'9') then key := Chr(0);
end;