设置Delphi6的Edit控件
BevelKind:=bkFlat,
BevelEages的beBottom为True其他为False
BorderStyle为bsNone,
BevelInner:=bvNone,
BevelOuter:=bvLowered就能实现。

ParentColor:=True  透明