Как полностью убрать границу Panel в delphi? - PullRequest
1 голос
/ 05 января 2012

В моем приложении я создал форму регистрации, и мне нужно показывать значок ошибки, когда редактирование пусто или содержит какую-то ошибку.Но у изображения нет свойства 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 Ответ

13 голосов
/ 05 января 2012

(Ваша настоящая проблема, скорее всего, может быть решена без добавления TPanel, но я все же отвечу на ваш актуальный вопрос здесь.)

Установите BevelInner и BevelOuter на bvNone.

Кстати, ваш код может быть написан более элегантно, как

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