Delphi Edit编辑框变身IP地址编辑框.docxVIP

Delphi Edit编辑框变身 IP 地址编辑框 Delphi中没有内建标准的IP 编辑框，我们可以通过对TEdit的输入控制就能达到IP 地址框的效果，具体如下： //编辑框某键被按下事件 procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); var edt:TEdit; str:String; strL:String; strR:String; substr:String; I: Integer; begin //初始化变量 edt := TEdit(Sender); str := edt.Text; //取出文本框内全部字符 if Length(edt.SelText) 0 then begin strL := LeftStr(edt.Text,edt.SelStart); strR := RightStr(edt.Text,Length(edt.Text) - edt.SelStart - edt.SelLength); str := strL + strR; end; //限制只能输入数字／小数点／退格键 if not CharInSet(Key,[0..9,.,#8]) then Key := #0; //第一位不能为小数点 if (Key = .) and (edt.SelStart = 0