image - 如何在delphi中完全删除面板边框？

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;