如何完全刪除delphi中的面板邊框？

在我的應用程序中，我創建了一個註冊表單，每當Edit爲空或包含一些錯誤時，我需要顯示一個錯誤圖標。但該圖像沒有Name屬性，因此我無法通過其名稱調用隱藏圖像。因此，我決定將圖像放入面板並隱藏面板。是這樣的：如何完全刪除delphi中的面板邊框？

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

的問題是，面板的邊框仍然會出現設置邊框到bsNone後。

如何完全隱藏面板的邊框？

2012-01-05 Rafik Bari

如何顯示圖像？如果它是放置在表單上的TImage，那麼它將會有一個名稱。如果你從代碼創建它，然後只保留對它的引用。 – 2012-01-05 17:55:35

什麼阻止你簡單*給圖像組件一個名字？它是*你的*程序，所以如果有關於它的事情使你的任務變得困難，你可以修復它。 – 2012-01-05 18:25:35

（您的實際問題，最有可能的，可以不添加TPanel解決了，但我還在這裏回答你的問題的實際。）

集BevelInner和BevelOuter到bvNone。

順便說一句，你可以編寫代碼更優雅的

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

2012-01-05 17:54:11

謝謝你的幫助 – 2012-01-05 18:00:53

回答