Question

如何在delphi里面控制Edit只能输入数字

Answer 1

Edit只能输入数字，可以编写代码响应 OnKeyPress 事件，示例代码如下：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8, #13]) then
  begin
     Key := #0;
     ShowMessage('只能输入数字');
  end;
end;

Answer 2

用maskedit控件替代edit控件。