TreeView Help

[KWN, lnc]

У меня в TreeView разделы

11111
22222
33333
44444

как мне в разделе 222222

вывести PopupMenu1 а в остальных не выводить как я понел

идет это через Select

дайте кодинг... ПЛИЗ!!! Заранее большое человеческое спасибо...

[Stilet]

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbright then begin
 if (sender = TreeView1) and (TTreeView(sender).Selected<>nil) then begin
  TTreeView(sender).Selected:=TTreeView(sender).GetNodeAt(x,y);
  if TTreeView(sender).Selected.text='wer' then
   PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
 end;
end;
end;

[KWN, lnc]

Stilet Спасибо выручил!

А как скажем там где 222222

при щелчке button1

создавались опрееленые разделы? (подразделы)

Скажем

11111
22222
- master
- normal
- и т.д.
33333
44444

[mihali4]

F1 -> TreeView - примеры кода на Дельфи.

[KWN, lnc]

mihali4х я непонимаю как пользоваться Help(ом) в Делфяшке...
ответьте пожалуйста на последний вопрос... будте людми!

[Stilet]

А что тут не понятного?
Нажай F1 и впиши TTreeview
Открой то че найдет и там коллекция Items выдаст типа такого:

TreeView1.Items.AddChildFirst(TreeView1.Selected,'dfasd');

Это создание дочернего элемента для выдленного

[KWN, lnc]

Блин ладно вообщем так....
мне надо чтоб при создании папки выскакивали разделы скажем Игры и программы

procedure TForm6.N2Click(Sender: TObject);
var MyData: string;
s: string;
begin
s:= dialogs.InputBox('Обозвать папку','Название','');
treeview1.Items.AddChild(TreeView1. Selected, s).Data:= pchar(mydata);
TreeView1.Items.AddChildFirst(TreeV iew1.Selected,'Игры');
TreeView1.Items.AddChildFirst(TreeV iew1.Selected,'Программы');
end;

то что я написал нетянет... помогите...

[mihali4]

Сообщение от KWN, lnc

то что я написал нетянет... помогите...

Объясните подробнее, что именно у вас не работает.
Из нас гадалки неважные.
По моим догадкам, вам нужно это:

procedure TForm6.N2Click(Sender: TObject);
var MyData: string;
    s: string;
    mtn: TTreeNode;
begin
s:= dialogs.InputBox('Обозвать папку','Название','');
mtn:=treeview1.Items.AddChild(TreeView1.Selected, s);
mtn.Data:= pchar(mydata);
TreeView1.Items.AddChildFirst(mtn,' Игры');
TreeView1.Items.AddChildFirst(mtn,' Программы');
end;

З.Ы. Если захотите в корень дерева папку добавлять, предварительно нужно сделать

TreeView1.ClearSelection(false);

[KWN, lnc]

Большое человеческое, Спасибо mihali4

[KWN, lnc]

Почему путаются места?
т.е. там где Прочее появляется Игры а там где Игры прочее

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbright then begin
 if (sender = TreeView1) and (TTreeView(sender).Selected<>nil) then begin
  TTreeView(sender).Selected:=TTreeView(sender).GetNodeAt(x,y);

  if TTreeView(sender).Selected.text='Прочее' then
   PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
N1.Visible := True;
N2.Visible := False;
N3.Visible := False;

  if TTreeView(sender).Selected.text='Игры' then
   PopupMenu7.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
N1.Visible := False;
N2.Visible := True;
N3.Visible := False;

   if TTreeView(sender).Selected.text='ПРоги' then
   PopupMenu7.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
N1.Visible := False;
N2.Visible := False;
N3.Visible := True;

 end;
end;
end;