我想改写Tedit控件，变成如下形状：2003:05:28 21:23:34 怎么办？

我想改写Tedit控件，变成如下形状：2003:05:28 21:23:34 怎么办？请指教，请指出具体方法

解决方案 »

  1.   

    你是想让edit显示时间？还是什么？不明白你说“变形”是什么意思。
      

  2.   

    什么意思啊
    tedit.text:='2003:05:28 21:23:34';
    为什么不用tdatetimepicker?
      

  3.   

    就是说要方便时间输入,我想将日期和时间统一起来tdatetimepicker只能将两者分开,必需要用两个控件才可以.我的方法只是在edit中加入几个小点,如同填写ip地址
      

  4.   

    从TEdit内继承。。自己写个控件。。
      

  5.   

    写Tedit控件，变成如下形状：2003:05:28 21:23:34
    ~~
    我也不是太懂你的意思
    偶看标题还以为指的是tdatetime+datetimetostr那种问题,keke,进错了
      

  6.   

    用两个DateTimePicker 不是很方便吗？！
      

  7.   

    写控件兄弟我没有经验，想往这方面发展，请各位大虾指点一下，我怎么从tedit继承下来，又增加一些功能，只要思路就可以了，
      

  8.   

    procedure MakeRounded(Control: TWinControl);varR: TRect;Rgn: HRGN;beginwith Control dobeginR := ClientRect;rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);Perform(EM_GETRECT, 0, lParam(@r));InflateRect(r, - 5, - 5);Perform(EM_SETRECTNP, 0, lParam(@r));SetWindowRgn(Handle, rgn, True);Invalidate;end;end;以上是变半圆的一个过程
      

  9.   

    ： fhuibo(Sailor) 如果要实现我的效果是不是只要在rgn中画几个点就可以了？？
      

  10.   

    edit1.text:=FormatDateTime('YYYY:MM:DD HH:MM:SS', now)
      

  11.   

    kellerlee()这种方法有一个缺点就是不能限制位数，比如年份只有四位，但是输入的时候没有限制，可以没有限制的输入下去