如何在delphi中完全删除Panel边框？

Question

在我的应用程序中，我创建了一个注册表单，每当Edit为空或包含一些错误时我都需要显示一个错误图标。但是图像没有Name属性，因此我无法通过名称来调用隐藏图像。因此我决定将图像放入面板并隐藏面板。类似的东西：

    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;