программа для создания меню

[evg_m]

но удаляются в реале 2 пункта из 1 меню, почему?

property Items: TTreeNodes read FTreeNodes write SetTreeNodes;

procedure TTreeNodes.Delete(Node: TTreeNode);
begin
  Node.Delete;
end;

procedure TTreeNode.Delete;
begin
  if not Deleting then
    Free;
end;

                            TreeView1.Items.Delete(TreeView2.Selected);
                            TreeView2.Items.Delete(TreeView2.Selected);

==

TreeView2.selected.Delete;
TreeView2.Selected.Delete;

Без разницы откуда удалять, главное ЧТО удаляем.

[Host-2013]

Сообщение от evg_m

                            TreeView1.Items.Delete(TreeView2.Selected);
                            TreeView2.Items.Delete(TreeView2.Selected);

==

TreeView2.selected.Delete;
TreeView2.Selected.Delete;

Без разницы откуда удалять, главное ЧТО удаляем.

в таком случае подскажи как сделать чтобы при выборе какого либо узла в 1 дереве, автоматом выбирался бы параллельный узел во втором? OnClick? а если клик будет не по узлу? там же много свободного места и помимо узлов... там еще правда много событий, только я не знаю какое из них что значит... не работал раньше с ним
п.с. и еще кстати интересно как реализовать перетаскивание узлов? OnDrag\Drop?

[Host-2013]

а все, нашел: OnChange, но все равно остается вопрос как выделить во втором дереве узел выбранный в первом? (деревья абсолютно параллельны) пытаюсь TreeView1.Selected:= TreeView2.Selected; он мне ошибки выдает

[Аватар]

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  TreeView2.Selected:=TreeView2.Items[TreeView1.Selected.AbsoluteIndex];
end;

[Host-2013]

Сообщение от Аватар

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  TreeView2.Selected:=TreeView2.Items[TreeView1.Selected.AbsoluteIndex];
end;

работает спасибо, а почему во втором дереве не выделяется при этом узел?
переприсвоение эдитов происходит, а выделения то нет а по хорошему лучше бы оно было...

п.с. и про перетаскивание узлов по прежнему интересует

[Аватар]

почему во втором дереве не выделяется при этом узел?

HideSelection:=False;

перетаскивание узлов по прежнему интересует

А как тогда с параллельностью деревьев быть - рухнет

ADD

О-о-о мама мия, сколько я постов наплодил 5000 - очень кругло

[Host-2013]

Сообщение от Аватар

HideSelection:=False;

помогло спасибо

Сообщение от Аватар

А как тогда с параллельностью деревьев быть - рухнет

почему рухнет? надо просто синхронно перетаскивать - перетаскиваешь и автоматом перетаскивается во втором дереве

Сообщение от Аватар

ADD

что?

Сообщение от Аватар

О-о-о мама мия, сколько я постов наплодил 5000 - очень кругло

поздрям!

[evg_m]

А смысл в двух таких?

(деревья абсолютно параллельны)

Данные можно хранить и во внутренних структурах. Tnode.Data к примеру. Доставая их оттуда по мере надобности.
Перетаскивать (для изменения иерархии) можно и внутри одного дерева.

[Host-2013]

Сообщение от evg_m

А смысл в двух таких?


Данные можно хранить и во внутренних структурах. Tnode.Data к примеру. Доставая их оттуда по мере надобности.
Перетаскивать (для изменения иерархии) можно и внутри одного дерева.

а смысл в том что одно дерево это названия пунктов меню, а второе команды выполняемые при нажатии...

п.с. кстати АП !!! меня по прежнему интересует как сделать перетаскивание

[evg_m]

а смысл в том что одно дерево это названия пунктов меню, а второе команды выполняемые при нажатии...

а команды (именно команды а не меню связанные с этими командами) тоже имеют иерархию, чтобы пихать в дерево для показа.
Скорее это простой список (такой как ActionList) да и то он нужен если мы можем к одной команде (Action) привязать несколько разных меню(MenuItem) и хотим иметь возможность удалив команду тут же удалить все ее меню.

Menu <->TreeView
MenuItem <-> TItemNode
MenuItem.Action <-> TItemNode.Data

ActionList <-> ListBox
Action <-> TItemList (или как он там зовется)

меня по прежнему интересует как сделать перетаскивание

TreeView.Selected.Moveto(TreeView1.DropTarget, ???? );

в нужное время и в нужном месте.
5 минут просмотра F1 TreeView TTreeNode и пара экспериментов.

и еще раз прощаемся с синхронностью двух "одинаковых" деревьев.
Когда-нибудь наберется критическая масса таких прощаний (после очередной правки кода) и ... увидим два НЕодинаковых.
Если хотим всегда одинаковых то лучше чтобы первый знал про свой второй (второй про свой первый)
node1:=TreeView1.Add();
node2:=TReeView2.Add();
node1.Data:=node2; // первый знает про свой второй
node2.Data:=node1; // второй знает про свой первый
А еще лучше хранить ВСЕ данные в своем массиве а для TreeView оставить только отображение иерархии да чтоб еще знал какие данные ( node1.Data:=....) он отображает.