Delphi 无边框或扁平 tEdit

Question

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

Answer 1

只需将BorderStyle 设置为bsNone。

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

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

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