Предварительная загрузка элементов

Delphi , Компоненты и Классы , Списки

Автор: Scott Samet

Я пытаюсь осуществить предварительную загрузку элементов наследника TListBox со множеством строк. Для этого я перекрываю конструктор, добавляя в него строки типа items.add('foo'); но когда я выполняю это, то получаю исключение "window has no parent window" (окно не имеет родительского окна). Почему у меня не получается сделать это?

Listbox сохраняет элементы, передавая их Windows. При этом требуется дескриптор окна, а дескриптору окна требуется родитель. Родитель не устанавливается даже после возврата из конструктора.

Решение проблемы:

   SaveVis := Visible;
   Visible := False;
   Parent  := Owner;
   <заполнение ListBox>
   Parent  := Nil;
   Visible := SaveVis;

Классическая ошибка "окно не имеет родительского окна"!

Вы пытаетесь загрузить список элементов в конструкторе, но это не работает так, как вы ожидаете. Это потому, что свойство Parent списка элементов требует настройки до добавления элементов. Проблема заключается в том, что свойство Parent требует валидного владельца окна, который еще не установлен при вызове конструктора. Кроме того, свойство Visible также должно быть установлено в False, иначе контроллер будет пытаться отображать себя сразу и выйдет с ошибкой "окно не имеет родительского окна".

Чтобы решить эту проблему, вы можете использовать следующий код:

SaveVis := Visible;
Visible := False;
Parent    := Owner;
// Добавьте элементы в список здесь
Parent    := Nil;
Visible   := SaveVis;

Вот что происходит:

1. Мы сохраняем исходное состояние Visible в SaveVis.
2. Мы устанавливаем Visible в False, чтобы предотвратить отображение контроллера сразу.
3. Мы настраиваем свойство Parent на владельца окна, который необходим для добавления элементов в список.
4. Мы добавляем элементы в список, как необходимо.
5. Мы сбрасываем свойство Parent в Nil, чтобы освободить любые ссылки на родительское окно.
6. Наконец, мы восстанавливаем исходное состояние Visible с помощью SaveVis.

Таким образом, вы можете безопасно загружать список элементов в конструкторе без возникновения ошибки "окно не имеет родительского окна".

Автор статьи Scott Samet описывает problema с предварительной загрузкой элементов наследника TListBox, вызванную отсутствием родительского окна, и предлагает решение проблемы, заключающееся в временном скрытии видимости Listbox и установке его родителя.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Списки ::