怎样自己编写函数？？？

Question

procedure tform1.oneditkeypress(Sender: TObject; var Key: Char)
begin
  if not(key in ['0'..'9']) then key:=#0;
end;然后把所有有同样要求的编辑框的Onkeypress事件设为以上的过程就行了

Answer 1

你用maskedit不用寫任何代碼呀，隻要設定mask就可以了

Answer 2

添加一个PAS文件在里面写procedure oneditkeypress(Sender: TObject; var Key: Char)
begin
  if not(key in ['0'..'9']) then key:=#0;
end;其它窗体引用这个单元就可以了啊