VPF::Поменять узлы в TreeView - Форум программистов

CYBERDREAM

Дата 9.6.2008, 11:11 (ссылка)

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

Загрузка ...

I think, there4 I am

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

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

Приветствую всех дельфийцев
Необходимо поменять два узла в TreeView. Один это Tree.Selected второй Tree,GetNodeAt(x,y)
Как корректно их поменять?
Пробовал так:

Код


        nod:=Tree.Selected;
        Tree.Selected:=Tree.GetNodeAt(x,y);
        Tree.GetNodeAt(x,y):=nod;

Но ничего путного не выходит из этого,
Tree.GetNodeAt(x,y) - этой части нельзя присваиватьт значения. Как быть народ?
Прошу помощи smile

Добавлено через 14 минут и 42 секунды

Код

        CopyMemory(dat,
                    tree.GetNodeAt(x,y).Data,
                    sizeof(tree.GetNodeAt(x,y).Data));

        CopyMemory(tree.GetNodeAt(x,y).Data,
                    tree.Selected.Data,
                    sizeof(tree.Selected.data));

        CopyMemory(tree.Selected.Data,
                    dat,
                    sizeof(dat));

Так вечно ексепшин вылазиит

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

Ищем .Net, Java, Javascript разработчиков, Кипр, Лимассол. (знание английского необязательно)
Telegram, skype: kuchuk.artiom

CYBERDREAM

Дата 9.6.2008, 12:27 (ссылка)

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

Загрузка ...

I think, there4 I am

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

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

Ответ нашел в хелпе:

Код


{
The following code uses GetNodeAt to add a dragged node as a
child of the node under the mouse when it is dropped.  This
example requires a populated TreeView.  Also, the TTreeView
DragMode property set to dmAutomatic, and the TTreeView
OnDragOver event handler must be implemented to accept the
drop.
}
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var 
  AnItem: TTreeNode;
  AttachMode: TNodeAttachMode;
  HT: THitTests;
begin
  if TreeView1.Selected = nil then Exit;
  HT := TreeView1.GetHitTestInfoAt(X, Y);
  AnItem := TreeView1.GetNodeAt(X, Y);
  if (HT - [htOnItem, htOnIcon, htNowhere, htOnIndent] <> HT) then 
  begin
    if (htOnItem in HT) or (htOnIcon in HT) then
      AttachMode := naAddChild
    else if htNowhere in HT then AttachMode := naAdd
    else if htOnIndent in HT then AttachMode := naInsert;
    TreeView1.Selected.MoveTo(AnItem, AttachMode); 
  end;
end;

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TTreeView;
end;

Всем спасибо smile

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

Ищем .Net, Java, Javascript разработчиков, Кипр, Лимассол. (знание английского необязательно)
Telegram, skype: kuchuk.artiom

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