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

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

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

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

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

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

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

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

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

4
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,866
Записей в блоге: 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
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,866
Записей в блоге: 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?
как переименовывать вкладки в PageControl?

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


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

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

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