delphi 输入框edit输入限制

退堂鼓表演艺术家YW

已于 2022-03-09 10:40:01 修改

阅读量1.2k

点赞数

分类专栏： Delphi # 实用文章标签： delphi

于 2021-10-26 21:35:55 首次发布

本文链接：https://blog.csdn.net/yw_mirage/article/details/119238322

版权

Delphi 同时被 2 个专栏收录

10 篇文章

订阅专栏

实用

3 篇文章

订阅专栏

该博客介绍了如何在Delphi中通过KeyPress和KeyDown事件阻止Edit控件接收特定字符输入，如非数字字符，并禁止用户通过Ctrl+C、Ctrl+V、Ctrl+X进行复制、粘贴和剪切操作。示例代码详细展示了实现这一功能的逻辑流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在Edit的KeyPress事件里进行限制。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
    Key := Chr(0); //代码大意是禁止输入字符

if not(key in['a'..'Z',#8])then
begin
 Key := Chr(0);  
end;
end;

下面这段大概意思是拒绝复制粘贴

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Shift =[ssCtrl] then
  begin
    if (Key=ord('C') ) or (Key=Ord('V')) or (Key=Ord('X')) then
    PressCtrl:=True;
  end;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if PressCtrl then
  begin
   Key:=#0;
   PressCtrl:=False;
  end;