Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

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

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

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

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

Как свернуть все окна кроме нашей формы? - Delphi
Нашёл в интернете интересный код: Как свернуть все окна системы ? // Любимая наша процедура. {Для того чтобы использовать данный...

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

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

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

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

Как в PageControl использовать динамические вкладки? - Delphi
Нужно создать что-то на подобии вложенного рисунка. + - создать вкладку определённого содержания, а x - закрыть вкладку.

4
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24799 / 16473 / 5079
Регистрация: 22.10.2011
Сообщений: 29,099
Записей в блоге: 5
25.08.2012, 18:43 #2
Delphi
1
PageControl1.ActivePage.PageIndex := 0;
, и удаляй все, кроме первой
0
ВАСИЛЕВС
557 / 480 / 60
Регистрация: 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
24799 / 16473 / 5079
Регистрация: 22.10.2011
Сообщений: 29,099
Записей в блоге: 5
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 / 60
Регистрация: 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 - Delphi
Ребят, нужна Ваша помощь с реализацией экспорта файлов. Суть вот в чем: Есть 4 формы. 1 форма основная (использую компонент...

Ошибка при закрытии вкладки созданой програмно в PageControl - Delphi
Здраствуйте. Такое дело. На форме есть PageControl(без вкладок), вкладки создаются програмно, и на каждой вкладке есть РичЕдит(Один)....

закрыть все блоки кроме ! - jQuery
приветик ! подскажите плиз вот есть такая вот задача : http://jsfiddle.net/sTZM4/ &lt;body&gt; &lt;div class=&quot;bt&quot; id=&quot;a1&quot;&gt;aaa&lt;/div&gt; &lt;div...

Закрыть все Activity кроме первой - Программирование Android
Есть несколько Activity, с первой переходу во вторую с второй в третью и тд, нужно закрыть все Activity, ну например находясь в третьей...


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

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

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