delphi中在EDIT1中限制输入50字节要怎么写
答案:2 悬赏:60 手机版
解决时间 2021-05-05 14:50
- 提问者网友：欺烟
- 2021-05-04 15:35
delphi中在EDIT1中限制输入50字节要怎么写
最佳答案
- 五星知识达人网友：千杯敬自由
- 2021-05-04 16:53
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 50 then
begin
ShowMessage('输入的字符超过50了');
Edit1.Text := Chr(0);
end;
end;
begin
if Length(Edit1.Text) > 50 then
begin
ShowMessage('输入的字符超过50了');
Edit1.Text := Chr(0);
end;
end;
全部回答
- 1楼网友：往事隔山水
- 2021-05-04 18:02
设置Edit的MaxLength属性为50 。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯