Показать сообщение отдельно
Старый 08.12.2009, 22:47   #9
<-TzX->
Оператор ЭВМ
 
Аватар для <-TzX->
 
Регистрация: 10.07.2009
Сообщений: 41
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: Динамически создаваемые объекты

По ходу работы возник еще один вопрос. Новую тему создавать не стал, название в принципе подходит. Ну так вот суть.

Есть ListView В нем формируется что то похожее на "Асечный контакт-лист". При Двойном клике по эллементу списка в другой форме динамически создается TabSheet с тем же именем. С этим проблем нет, НО:
Нужно чтобы если кликаем по эллементу списка не создавалась еще одна вкладка, а активировалась существующая.
Делал примерно так:
Var z:integer;
Begin
   
For z:=0 to PageControl.PageCount do
if 
Form2.ListView1.Items[Form2.ListView1.ItemIndex].Caption=TabSheet[z].Caption 
then
Pagecontrol
.ActivePage:=TabSheet[z]
 else
Begin
 TabSheet
[i]:=TTabSheet.Create(Form1);
 
TabSheet[i].Caption:=name;
 
TabSheet[i].PageControl := PageControl
При повторном клике получается что ни одна вкладка не активирована.
Надеюсь понятно объяснил что хочу =)

Пол дня голову ломаю, пните меня в правильную сторону.

Заранее спасибо)
(Offline)
 
Ответить с цитированием