Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 5.00
ВАСИЛЕВС
557 / 480 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
#1

Закрыть все вкладки кроме текущей в PageControl - Delphi

25.08.2012, 18:23. Просмотров 1347. Ответов 4
Метки нет (Все метки)

Каким образом можно закрыть все вкладки кроме одной - текущей?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.08.2012, 18:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Закрыть все вкладки кроме текущей в PageControl (Delphi):

PageControl: как сделать вкладки невидимыми?
добрый день, подскажите пожалуйста, как сделать невидимыми листы в pagecontrol....

Как свернуть все окна кроме нашей формы?
Нашёл в интернете интересный код: Как свернуть все окна системы ? // Любимая...

Как в OpenDialog выбрать все файлы кроме файлов с опредеоенным расширением ???
Как в OpenDialog выбрать все файлы кроме файлов (например) с tmp расширением...

Нужен ли для каждой вкладки pagecontrol свой adotable?
использую в своей базе pagecontrol, вот вопрос для каждого tabsheet нужен свой...

Не переключаются вкладки PageControl'a
Есть PageControl с двумя TabSheet. На каждом TabSheet Image в alClient и кнопки...

Вкладки слева на PageControl?
Можно ли стандартными средствами (без особых извращений) у компонента...

4
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25622 / 17175 / 6830
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
25.08.2012, 18:43 #2
Delphi
1
PageControl1.ActivePage.PageIndex := 0;
, и удаляй все, кроме первой
0
ВАСИЛЕВС
557 / 480 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
25.08.2012, 19:04  [ТС] #3
UI, если вкладок больше двух, то выскакивает ошибка "List index of bounds". Делаю так:
Delphi
1
2
3
4
5
6
7
8
9
var i: integer;
begin
  i := 0;
  while PageControl.PageCount <> 1 do
    begin
      Inc(i);
      PageControl.Pages[i].Destroy();
    end;
end;
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25622 / 17175 / 6830
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
25.08.2012, 19:06 #4
Все проще:
Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  with PageControl1 do
  begin
    ActivePage.PageIndex := 0;
    for i := PageCount - 1 downto 1 do
      Pages[i].Free;
  end;
end;
2
ВАСИЛЕВС
557 / 480 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
25.08.2012, 19:10  [ТС] #5
Цитата Сообщение от UI Посмотреть сообщение
Все проще
И правда проще. Спасибо!
0
25.08.2012, 19:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.08.2012, 19:10
Привет! Вот еще темы с решениями:

Как переименовывать вкладки в PageControl?
как переименовывать вкладки в PageControl?

закрыть все блоки кроме !
приветик ! подскажите плиз вот есть такая вот задача :...

Закрыть все Activity кроме первой
Есть несколько Activity, с первой переходу во вторую с второй в третью и тд,...

Закрытие вкладки в PageControl - Не выходит определить, у какой вкладки нажата кнопка закрытия
Всем привет. Не могу оседлать pagecontrol. Проблема в том, что не могу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru