在TEdit控件的OnKeyPress事件中加入如下代码即可实现:
var
strTmp: string;
//从ClipBoard中获得当前的字符串
function GetClipBoardString(): string;
var
arTmp: array [0..255] of Char;
begin
Clipboard.Open;
try
if Clipboard.GetTextBuf(arTmp, 256) > 0 then Result:= arTmp
else Result:= '';
finally
Clipboard.Close;
end;
end;
begin
//过滤退格键、复制键、剪切键
if not (Key in [#08, #3, #24]) then
begin
if (Key in ['0'..'9']) then
begin
if (TEdit(Sender).SelLength = 0) then
begin
//缓存当前输入框中的内容
strTmp:= TEdit(Sender).Text;
//拼成输入后的字符串
Insert(Key, strTmp, TEdit(Sender).SelStart + 1);
//判断输入后的字符串是否合理,不合理的话则不允许输入
if StrToIntDef(strTmp, 256) > 255 then
Key:= #0
else
//限制在数字前输入字符'0'
if (TEdit(Sender).SelStart = 0) and (Key = '0') then Key:= #0;
end
else
begin
//缓存当前输入框中的内容
strTmp:= TEdit(Sender).Text;
//删除选中字符
Delete(strTmp, TEdit(Sender).SelStart + 1, TEdit(Sender).SelLength);
//添加新输入的内容
Insert(Key, strTmp, TEdit(Sender).SelStart + 1);
//如果输入的内容不合理,则不允许输入
if StrToIntDef(strTmp, 256) > 255 then Key:= #0;
end;
end
else
begin
//处理 Ctrl + V 操作,字符表示为 #22
if (Key = #22) then
begin
//缓存当前输入框中的内容
strTmp:= TEdit(Sender).Text;
//如果存在选中字符,即可以变蓝的部分,则删除选中字符,然后替换为剪切板中的内容
if (TEdit(Sender).SelLength > 0) then
begin
//删除选中字符
Delete(strTmp, TEdit(Sender).SelStart + 1, TEdit(Sender).SelLength);
//添加剪切板中的内容
Insert(GetClipBoardString(), strTmp, TEdit(Sender).SelStart + 1);
end
else
begin
//添加剪切板中的内容
Insert(GetClipBoardString(), strTmp, TEdit(Sender).SelStart + 1);
end;
//如果输入的内容不合理,则不允许输入
if StrToIntDef(strTmp, 256) > 255 then Key:= #0;
end
else Key:= #0;
end;
end;
end;