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。