Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Клик по элементу TreeView 
:(
    Опции темы
gta4kv
Дата 13.11.2007, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Walking around mad.
***


Профиль
Группа: Завсегдатай
Сообщений: 1868
Регистрация: 25.7.2006

Репутация: нет
Всего: 91
Есть некий Tree с некими полями

Код

      lNode := Form4.srvContactList.Items.Add(nil, usernick);
      Form4.srvContactList.Items.AddChild(lNode, 'Номер: ' + intToStr(UserInfo.UIN));
      Form4.srvContactList.Items.AddChild(lNode, 'Авторизован: ' + requestAuth );


В TTreeView  много "деревьев",  как сделать что бы по клику на пункт(например где UserInfo.UIN) что то происходило... Например открывалась форма.


 smile 
заранее благодарен

Это сообщение отредактировал(а) gta4kv - 13.11.2007, 19:10
PM MAIL   Вверх
lukas
Дата 13.11.2007, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15
У TreeView есть Select.AbsoluteIndex (абсолютный индекс), а также сам Select - объект TreeNote, который имеет много полезных свойств, если же у тебя стоит МультиСелект, то используй Selections[...] и SelectionCount


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
gta4kv
Дата 13.11.2007, 19:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Walking around mad.
***


Профиль
Группа: Завсегдатай
Сообщений: 1868
Регистрация: 25.7.2006

Репутация: нет
Всего: 91
Цитата(lukas @ 13.11.2007,  19:16)
У TreeView есть Select.AbsoluteIndex (абсолютный индекс), а также сам Select - объект TreeNote, который имеет много полезных свойств, если же у тебя стоит МультиСелект, то используй Selections[...] и SelectionCount

 smile 
PM MAIL   Вверх
Exai1e
Дата 13.11.2007, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30
Код

  if TreeView1.Items[1] = TreeView1.Selected then
    ShowMessage('Выбран элемент номер 1');


Примерно так


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
gta4kv
Дата 13.11.2007, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Walking around mad.
***


Профиль
Группа: Завсегдатай
Сообщений: 1868
Регистрация: 25.7.2006

Репутация: нет
Всего: 91
Цитата(Exai1e @ 13.11.2007,  19:49)
Код

  if TreeView1.Items[1] = TreeView1.Selected then
    ShowMessage('Выбран элемент номер 1');


Примерно так

Спасибо, это конечно хорошо, а представим что элементов 1000? и на каждый третий клик нужно выполнять действие. ? smile Как можно облегчить задачу?
PM MAIL   Вверх
Exai1e
Дата 13.11.2007, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30
Наверно можно smile ток мне не приходит в голову как :-/


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
lukas
Дата 13.11.2007, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15
Конкретно задавай вопрос... какие формы у тебя... что ты должен открывать...

ну вот к примеру можно открыть форму с Caption который выделен в Дереве...

Код

for i:=0 to Screen.FormsCount-1 do
 begin
  IF Screen.Forms[i].Caption=Tree.Selected.Text then
   begin
     Screen.Forms[i].Show; exit;
  end;
 end;



Код

    ShowMessage('Выбран элемент номер '+IntToStr(Tree.Selected.AbsoluteIndex));


Это сообщение отредактировал(а) lukas - 13.11.2007, 22:09


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1063 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.