EditMask属性设为000.000.000.000;1;0
character for blanck 0OK
不过正确性验证还得自己做

解决方案 »

  1.   

    有专门的属性设置
    设置他的Editmask属性,里边有例子,一看就明白了!
      

  2.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
     maskedit1.Text:='';
     maskedit1.EditMask:='999.999.999.999;_';
    end;
      

  3.   

    000.000.000.000;1;0EditMask.text:='225.225.225.225';
      

  4.   

    将属性EditMask设为:000.000.000.000;1;0
    即可。
    —————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
    I.Desire := '加不加分随你';
    —————————————————————————————————
           
      

  5.   

    {*************************************************** 
      大家可能还都没有明白我的意思,MaskEdit的用法我会,我只是想实现和WINDOWS里一模一样的风格,比如程序初始时MASKEDIT显示为"   .   .   .   ",且其中的三个"."位置是固定的,不随着输入的改变而改变,还有当输入类似于"255.255.255.0"这样的IP地址时,只有一位数字的那节应该居中(MASKEDIT中这种情况时,"0"是靠左的)
      问题有些钻,但我只是想弄懂它,请大家不吝赐教!!!!!!
       ****************************************************}
      

  6.   

    to brand1:
      怎么做??请给出思路或code,不胜感激!!!!