找一个控件!

能不能这样：将edit的边框去掉（好像是borderStyle＝none），然后将字体设置为带下划线？

解决方案 »

  1.   

    找个TFlatEdit控件看看它的RedrawBorder方法就知道怎做了!CreateSolidBrush
      

  2.   

    TEdit 的bevelInner   :bvSpace
            bevelKind    :bkSoft
            bevelOuter   :bvNone
            borderStyle  :bsNone
            Color        :clBtnFace然后再在Edit 的下面放一个TSpace
            Height       :1
            Shape        :StRectangle两个控件的Width设置成一样.