首页 > 代码库 > key 限制字符的输入

key 限制字符的输入

2024-07-14 17:40:27   224人阅读

//限制字符的输入
{ 只能输入以下字符 }
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If (Key in [‘\‘, ‘/‘, ‘:‘, ‘*‘, ‘?‘, ‘<‘, ‘>‘, ‘|‘]) then
    Key := #0;
  If not(Key in [‘0‘ .. ‘9‘, ‘a‘ .. ‘z‘, ‘A‘ .. ‘Z‘]) then
    Key := #0;
end;


只能数字且只能输入一个小数点
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in [‘0‘ .. ‘9‘, ‘.‘, #8]) then
    Key := #0;
  if (Key = ‘.‘) and (Pos(‘.‘, Edit1.Text) > 0) then
    Key := #0; // 只能数字且只能输入一个小数点
end;
  
//只允许输入数字的TEdit组件
procedure TForm1.FormCreate(Sender: TObject);
var
    wl:Integer;
begin
    wl:=GetWindowLong(Edit1.Handle, GWL_STYLE);
    SetWindowLong(Edit1.Handle, GWL_STYLE, wl or ES_NUMBER);
end;

//Delphi XE4
Edit1.NumbersOnly:=True;

















//让edit 或memo右键无效措施:
//1. 设置edit或memo的ContextPopup事件 设置: Handled:=True; 即使右键对当前控件无效
//2.可以使用一个的空的PopupMenu1 这样可以视为右键无效
//右键粘贴无效
procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
    Handled:=True;
end;
 


来自为知笔记(Wiz)


联系
我们