找一个控件!

Question

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

Answer 1

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

Answer 2

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