TreeView и PageControl - Общие вопросы Delphi

Angel86rus · 01.02.2011, 17:27

Подскажите как решить такую проблему, решил слопатить TreeView и PageControl Ввиде окна настроек как в Делфи Tools->Options.. Но заткнулся на подменю. использую через index но index в подменю начинается 0 и активный становится tabSheet.. с index 0.. а это не гуд, кто что подскажет ???

Код:

i: Integer;
begin
i:= TreeView1.Selected.Index;
if TreeView1.Selected.Index = PageControl1.Pages[i].TabIndex then
PageControl1.ActivePageIndex:=i;
end;

Аватар · 01.02.2011, 20:28

А что плохого в том, что индексация начинается с нуля?

Angel86rus · 02.02.2011, 08:54

плохого та нет. загвоздка в подменю. У подменю индекс начинается тоже с 0. тоесть получается что при выборе меню открывается tabSheet с равным индексом меню. а если я выбераю подменю у меня открываются какой же tabSheet с индексом. вот что я имею ввиду..((

Angel86rus · 02.02.2011, 09:24

Спасибо всем разобрался)

bokus · 11.02.2014, 13:49

А где решение для народа, у меня такая же проблема.

ZuBy · 11.02.2014, 14:24

тема 2011 года, автор тебе явно не ответит

01.02.2011, 17:27	#1
Angel86rus Пользователь Регистрация: 03.10.2007 Сообщений: 42	TreeView и PageControl Подскажите как решить такую проблему, решил слопатить TreeView и PageControl Ввиде окна настроек как в Делфи Tools->Options.. Но заткнулся на подменю. использую через index но index в подменю начинается 0 и активный становится tabSheet.. с index 0.. а это не гуд, кто что подскажет ??? Код: `i: Integer; begin i:= TreeView1.Selected.Index; if TreeView1.Selected.Index = PageControl1.Pages[i].TabIndex then PageControl1.ActivePageIndex:=i; end;`

01.02.2011, 20:28	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	А что плохого в том, что индексация начинается с нуля? Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

11.02.2014, 14:24	#6
ZuBy Участник клуба Регистрация: 29.09.2008 Сообщений: 1,234	тема 2011 года, автор тебе явно не ответит бложик FMX Developer'a

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
PageControl	qwerty55	Общие вопросы Delphi	1	22.02.2010 12:03
PageControl	Volt	Общие вопросы Delphi	3	07.04.2009 19:19
PageControl	chingiz	Компоненты Delphi	14	22.11.2008 10:49
TreeView и PageControl (переключение вкладок по дереву)	Nevy	Общие вопросы C/C++	5	17.08.2008 19:17

02.02.2011, 08:54	#3
Angel86rus Пользователь Регистрация: 03.10.2007 Сообщений: 42	плохого та нет. загвоздка в подменю. У подменю индекс начинается тоже с 0. тоесть получается что при выборе меню открывается tabSheet с равным индексом меню. а если я выбераю подменю у меня открываются какой же tabSheet с индексом. вот что я имею ввиду..((

02.02.2011, 09:24	#4
Angel86rus Пользователь Регистрация: 03.10.2007 Сообщений: 42	Спасибо всем разобрался)

11.02.2014, 13:49	#5
bokus Новичок Джуниор Регистрация: 11.02.2014 Сообщений: 2	А где решение для народа, у меня такая же проблема.