手头上的程序里用了很多编辑框Edit,已经限制了OnKeyPress.
代码如下:
procedure TFrom1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not Key in [0..9,'#8','#13'] then Exit;
end;
如何限制Ctrl+V功能,因为从别处复制一段文字后,尽管我已限制该编辑框只允许输入数字,但还是能粘贴进去,导致程序出错!
代码如下:
procedure TFrom1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not Key in [0..9,'#8','#13'] then Exit;
end;
如何限制Ctrl+V功能,因为从别处复制一段文字后,尽管我已限制该编辑框只允许输入数字,但还是能粘贴进去,导致程序出错!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货