在哪里设置文本框输入掩码？

Question

在哪里设置文本框输入掩码？

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  begin
    key:=#0;
    MessageBeep(1);
  end;
end;

Answer 2

我是新手，请问#8,#0各代表什么意思呢？
MessageBeep(1)又是什么意思，怎么没见过这样的语句？

Answer 3

#8为退格键  
MessageBeep(1)为蜂鸣报警..滴一声...

Answer 4

在7.0中可以，但在8.0里，第一行就无法通过，不知是哪里出错了？（是要先var key:char;吗）
begin
if not (key in ['0'..'9',#8]) then
  begin
    key:=#0;
    MessageBeep(1);
  end;
end;