用MaskEdit就可以了。
EditMask设为:!000.000.000.000;1;_

解决方案 »

  1.   

    可以对字符串进行判断:
    uses  winsock它有一个函数if  inet_addr(sIPStr)= INADDR_NONE then
      showmessage('ip error') 
      

  2.   

    如下代码:
    uses
      ..., CommCtrl, ComCtrls;{$R *.DFM}
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      InitCommonControl(ICC_INTERNET_CLASSES);
      CreateWindow(WC_IPADDRESS,nil,WS_CHILD or WS_VISIBLE,20,20,130,23, Handle,0,
                   hInstance,nil);
    end; 
      

  3.   

    Bloblo:我有一个专门的控件,留个mail.
    今晚发。如何?
      

  4.   

    Bloblo(五百度) (2001-8-20 13:54:50)  得0分 
    我的email: [email protected]  
    我一发出。你收巴!!!
      

  5.   

    不是windows有专门的控件得吗?
      

  6.   

    谢谢ch81(missile)控件收到,但是一按 '.' (句号)就出错退出
    我用的是Win2000 delphi5.
      

  7.   


    windows有专门的控件,我记不清楚了。
      

  8.   

    vc中有专门的控件IP Address,在controls条的倒数第二行