Delphi 无边框或平面 tEdit

Question

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

Answer 1

只需将 BorderStyle 设置为 bsNone。

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

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

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