VPF::Parent of TreeView - Форум программистов

Budy

Дата 19.3.2004, 17:43 (ссылка)

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

Загрузка ...

Опытный

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

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

:Гуд ивнинг всем!
Вот имеется у меня допустим подобное TreeView:

Код

+Menu1
 |-SubMenu01
 |-SubMenu02
 |-SubMenu03
 +SubMenu04
  |-AnyMenu01
  |-AnyMenu02
+Menu2
 |-SubMenu

Вот нажимаю я здесь "SubMenu02" (например), по задаче должно для Form1.Caption присвоиться "Menu1_SubMenu02". С SubMenu02 я разобрался:

Код

Form1.Caption:=TreeView1.Selected.Text;

А вот как же мне узнать из какого именно MenuX вызвано SubMenu. Помогите, плиз!

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

DriveSoftware

Дата 19.3.2004, 18:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Budy

Код


  if TreeView1.Selected.Level=0 then exit; // если выбран родитель ветки
  Form1.Caption:=TreeView1.Selected.Parent.Text; // собственно...

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

Замена стандартным Windows часам

Budy

Дата 19.3.2004, 18:48 (ссылка)

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

Загрузка ...

Опытный

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

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

Если честно, то я уже разобрался (но все равно спасибо

). Если кому надо:

Код

var
 S:string;
 I:integer;
begin
 S:='';
 for I:=0 to TreeView1.Selected.Level do
  S:=S+TreeView1.Items.Item[I].Text+'_';
 Delete(S,Length(S),1);
 Form1.Caption:=S;
end;

А вот с этим не могу разобраться:
Знав уровень TreeView добавить в него строчку попорядку из Edit1:
Ну было допустим:

Код

+Menu1
+Menu2

Указали: Уровень=1; Edit1.Text='Sample'; должно быть:

Код

+Menu1
 |-Sample
+Menu2

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Budy

Дата 24.3.2004, 05:46 (ссылка)

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

Загрузка ...

Опытный

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

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

Не уж то никто не знает?

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

<Spawn>

Дата 24.3.2004, 06:23 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

TreeView1.Items.AddChild(Menu1, Edit1.Text); ?

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

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