delphi中如何完全去除面板边框？

Question

在我的应用程序中，我创建了一个注册表单，只要编辑为空或包含一些错误，我就需要显示错误图标。但图像没有名称属性，因此我无法通过其名称调用隐藏图像。因此我决定将图像放入面板中并隐藏面板。类似于：

    if(lenght(edit1.text)=0) then
       Panel1.show else Panel1.hide;  // this code shows or hide the image

问题是在将 BorderStyle 设置为 bsNone 后面板的边框仍然出现。

如何完全隐藏面板边框？

Answer 1

（您的实际问题很可能无需添加 TPanel 即可解决，但我仍然在这里回答您的实际问题。）

将 BevelInner 和 BevelOuter 设置为bvNone。

顺便说一下，你的代码可以写得更优雅：

Panel1.Visible := Length(Edit1.Text) = 0;

Answer 2

我设置了以下属性，这些属性在您遇到的情况下对我有用

BevelInner := bvNone;
BevelOuter := bvNone;
BevelKind := bkNone;