Delphi无边界或扁平tEdit

Question

如何获得无边界或平坦的tEdit？ 我已经尝试过使用BevelEdges，BevelInner，BevelOuter，BevelKind的所有组合，但没有任何效果。 显然，此属性被忽略。 设置BorderStyle时，编译器不接受bsSingle，也不接受bsNone。 我试图覆盖WMPaint的默认绘画，但是我无法到达控件的边缘。 谢谢。

Answer 1

只需将BorderStyle设置为bsNone 。

请注意， bsNone是TFormBorderStyle枚举类型的一部分，该类型在Forms单元中定义。 您可能已经定义了一个不同的bsNone ，或者使用了一个这样做的单元。 两种方法都使TFormBorderStyle.bsNone超出范围。

您可以执行以下任一操作来解决：

• 更改您定义的bsNone的名称。
• 更改bsNone子句的顺序， uses使Forms出现在定义冲突bsNone的另一个单元bsNone 。
• 将bsNone的名称完全解析为TFormBorderStyle.bsNone 。