仓库管理软件版1楼: 我想用一个Edit或MaskEdit填写IP地址不知如何设置

2楼: 在MASKEDIT里面有一项属性，好像是DISPLAYFORMAT　吧，可以设置　 如软件项目管理

3楼: 小弟不是很明白，大侠能不能说明白点

4楼: 自己继承tedit控件写一个新的ip地址控件吧，你要不要，要的话我给你发一个，代码很少，而且功能和windows里面的网上邻居里面设置ip地址的效果一样，大于255自动回改成255。代码如下：（你把这段代码拷贝下去，贴在记事本里面，然后更改文件名为ipedit.pas，然后安装上就可以了，控件在sample页上面，效果绝对舒服！）
unit IPEdit;

interface

uses
SysUtils, Classes, Controls, StdCtrls, ComCtrls, CommCtrl;

type
TIPEdit = class(TEdit)
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure TIpEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
InitCommonControl(ICC_INTERNET_CLASSES);
CreateSubClass(Params, WC_IPADDRESS);
end;

procedure Register;
begin
RegisterComponents(＇＇Samples＇＇, [TIPEdit]);
end;

end.

5楼: 楼上的有BUG，我有更好的，联系我~

6楼: 多人接受答案了。