[Решено] Как удалить страницу из TNotebook?

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
Аватара пользователя
kotompazb
постоялец
Сообщения: 156
Зарегистрирован: 21.06.2012 13:03:39
Откуда: Novosibirsk, xUSSR

[Решено] Как удалить страницу из TNotebook?

Сообщение kotompazb »

Пробовал так:

Код: Выделить всё

Notebook1.Pages.Delete(Notebook1.PageCount-1);

Однако почему-то валится :shock:

Добавлено спустя 31 секунду:
Да. Lazarus 1.6.

Добавлено спустя 47 минут 23 секунды:
Добавлю. Я просто бросил Notebook на форму, добавил 1 страницу в design-time, а потом в run-time попробовал ее удалить..
Последний раз редактировалось kotompazb 14.09.2016 01:04:16, всего редактировалось 1 раз.
pupsik
энтузиаст
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13
Контактная информация:

Сообщение pupsik »

Код: Выделить всё

Notebook1.Page[0].Destroy ;

Вы пытались удалить TStrings, а не страницу. Не то св-во.
Аватара пользователя
kotompazb
постоялец
Сообщения: 156
Зарегистрирован: 21.06.2012 13:03:39
Откуда: Novosibirsk, xUSSR

Сообщение kotompazb »

pupsik писал(а):Вы пытались удалить TStrings, а не страницу. Не то св-во.

A . О! Спасибо!
Аватара пользователя
kotompazb
постоялец
Сообщения: 156
Зарегистрирован: 21.06.2012 13:03:39
Откуда: Novosibirsk, xUSSR

Сообщение kotompazb »

А ваще я отказался от его использования еще до ответа, в моем случае удобнее пользовать набор отдельных TPage.
Но спасибо в любом случае.
Ответить