VPF::Раскрытие ветки в TreeView - Форум программистов

hedge_hog

Дата 28.5.2007, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Здравствуйте. Подскажите , пожалуйста, как сделать, чтобы в компоненте TreeView раскрывалась определённая ветвь с известным именем. по нажатию на кнопку Button1, а остальные свернулись. И как раскрыть все ветки.
Вроде бы понятно изъяснился, чуть-чуть неграмотно наверное. Умаляю не посылайте на всякие FAQ. И если можно подскажите как загрузить текст из *.txt в поле Memo.

Yanis

Дата 28.5.2007, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111

Цитата(hedge_hog @ 28.5.2007, 19:26

)

*.txt в поле Memo.

Это ж элементарно, Ватсон:

Код

Memo1.Lines.LoadFromFile('c:\file.txt');

Добавлено через 7 минут и 6 секунд

Код

var
  i, l: Integer;
  f: Boolean;
begin
  f := False;
  l := TreeView1.Items.Count - 1;
  for i := 0 to l do
    begin
      // закрываем все item's первого уровня
      TreeView1.Items.Item[i].Expanded := False;
      if not f then
        if TreeView1.Items.Item[i].Text = 'какой то текст' then
          begin
            TreeView1.Items.Item[i].Expanded := True;
            f := True;
          end;
    end;
end;

Добавлено через 8 минут и 51 секунду

Цитата(hedge_hog @ 28.5.2007, 19:26

)

Умаляю не посылайте на всякие FAQ.

А ты что, особенный?

--------------------

*щёлк*

hedge_hog

Дата 28.5.2007, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Цитата(Yanis @ 28.5.2007, 18:29

)

А ты что, особенный?

Самый обыкновенный. Огромное СпасиБо за помощь. Жизнь (точнее Диплом) моему знакомому спас, в какой-то степени.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »