Как полностью убрать границу Panel в delphi?
В моем приложении я создал форму регистрации, и мне нужно показывать значок ошибки, когда редактирование пусто или содержит какую-то ошибку. Но у изображения нет свойства Name, и поэтому я не могу вызвать Hide the image по его имени. Поэтому я решил поместить изображение в панель и скрыть панель. что-то вроде:
if(lenght(edit1.text)=0) then
Panel1.show else Panel1.hide; // this code shows or hide the image
Проблема в том, что граница панели все еще появляется после установки BorderStyle в bsNone.
Как полностью скрыть границу панели?
1 ответ
(Ваша настоящая проблема, скорее всего, может быть решена без добавления TPanel
но я все же отвечу на твой актуальный вопрос здесь.
Задавать BevelInner
а также BevelOuter
в bvNone
,
Кстати, ваш код может быть написан более элегантно, как
Panel1.Visible := Length(Edit1.Text) = 0;
Я установил следующие свойства, которые сработали для меня в такой ситуации, как у вас
BevelInner := bvNone;
BevelOuter := bvNone;
BevelKind := bkNone;