我要form1.edit1只能输入数字，所以在其事件中：
procedure TForm1.Edit1KeyPress(Sender: TObject; var..Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
key:=#0;
MessageBeep(1);
end;
但现在我要在edit1一直到edit100都实现只能输入数字，要怎么做
请写详细
delphi中有关edit的事件
答案:2 悬赏:0 手机版
解决时间 2021-02-12 21:37
- 提问者网友：鐵馬踏冰河
- 2021-02-11 23:54
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-02-12 01:19
在每个EDIT的按键事件下拉框那里选择你写的这个过程函数，就不用重复写那么多个了。
全部回答
- 1楼网友：大漠
- 2021-02-12 02:25
如果你只是为了执行exit函数的话，可以直接调用，没有必须让其失去焦点。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯