[NumLock]

Сообщение от M.A.D.M.A.N.

Можно InterfacedObject сделать и если ссылки на объекты будут отваливаться - то и объекты будут аннигилироваться.

можешь минимальный проект воспроизвести?

[icWasya]

Как удалять ...
В TreeView есть событие OnDeletion(Sender: TObject; Node: TTreeNode);
Вот у этого Node и надо удалять Data

[NumLock]

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

событие OnDeletion(Sender: TObject; Node: TTreeNode);

а вот с этим согласен

[M.A.D.M.A.N.]

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

можешь минимальный проект воспроизвести?

Ну как-то так:

Код:

  IFoo = interface
  ['{57B2E8F3-D285-4A43-BCDD-6EFECD76D654}']
  end;

  TFoo = class(TInterfacedObject, IFoo)
  private
    FData: TObject;
  public
    constructor Create(const aObj: TObject);
    destructor Destroy; override;
  end;
{ TFoo }

constructor TFoo.Create(const aObj: TObject);
begin
  FData := aObj;
end;

destructor TFoo.Destroy;
begin
  FreeAndNil(FData);
  inherited;
end;

function PenisCanis(const aData: TObject): IFoo;
begin
  Result := TFoo.Create(aData);
end;

интерфейсы можно в листик добавлять.

[NumLock]

Сообщение от M.A.D.M.A.N.

интерфейсы можно в листик добавлять

типа так:

Код:

ListBox1.Items.AddObject('1', TObject(PenisCanis(nil)));

?

[M.A.D.M.A.N.]

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

типа так:
?

TInterfaceList

[NumLock]

Сообщение от M.A.D.M.A.N.

TInterfaceList

ну по сути это будет выглядеть как http://www.delphisources.ru/forum/sh...0&postcount=14

Создаешь эеземпляр класса TObjectList с Owned := True. При добавлении в дерево, объект также добавляешь в этот список.

т.е. создается какой-то дополнительный список, при удалении которого будут удаляться объекты этого списка. хотя по идее уже есть такой список у самого TreeView.

[M.A.D.M.A.N.]

Этот метод еще хорош тем, что можно не использовать try finally при применении его в локальных методах, особенно удобно если с динамической памятью работаешь, чтоб TMemoryStream в finally не пришибать.

[tupetoner]

Здравствуйте, а как сделать так что бы можно было мышкой любой элемент Treeview перемещать из одного узла в другой???

[poli-smen]

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

Здравствуйте, а как сделать так что бы можно было мышкой любой элемент Treeview перемещать из одного узла в другой???

Тебе надо было бы создать новую тему.
По TreeView - смотри свойства DragKind, DragMode и события OnStarDrag, OnEndDrag, OnDragDrop, OnDragOver.

[tupetoner]

Сообщение от poli-smen

Тебе надо было бы создать новую тему.
По TreeView - смотри свойства DragKind, DragMode и события OnStarDrag, OnEndDrag, OnDragDrop, OnDragOver.

спасибо за подсказку, а вот что писать в этих событиях, непонятно...

[poli-smen]

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

спасибо за подсказку, а вот что писать в этих событиях, непонятно...

В свойстве DragMode у компонента TTreeView ставь dmAutomatic. А в его обработчиках примерно такой код:

Код:

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  TreeView: TTreeView;
  SourceNode, TargetNode: TTreeNode;
begin
  Accept := False;
  if Source is TTreeView then
  begin
    TreeView := Source as TTreeView;
    SourceNode := TreeView.Selected;
    if SourceNode <> nil then
    begin
      TargetNode := TreeView.GetNodeAt(X, Y);
      if TargetNode = nil then
      begin
        Accept := htNowhere in TreeView.GetHitTestInfoAt(X, Y);
      end else
      begin
        Accept := True;
        while TargetNode <> nil do
        begin
          if TargetNode = SourceNode then
          begin
            Accept := False;
            Break
          end;
          TargetNode := TargetNode.Parent;
        end;
      end;
    end;
  end;
end;

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  TreeView: TTreeView;
  SourceNode, TargetNode: TTreeNode;
begin
  if Source is TTreeView then
  begin
    TreeView := Source as TTreeView;
    SourceNode := TreeView.Selected;
    TargetNode := TreeView.GetNodeAt(X, Y);

    if SourceNode <> nil then SourceNode.MoveTo(TargetNode, naAddChild);
  end;
end;

[tupetoner]

можно ли сделать что бы узел дерева одного приложения перетянуть мышкой в любой узел дерева другого приложения???

[tupetoner]

poli-smen, а как сделать что бы по двойному щелчку мыши на определенном узле менялся размер шрифта, жирность и цвет узла и при повторном двойном щелчке на этом узле эти параметры возвращались к исходным???

[poli-smen]

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

можно ли сделать что бы узел дерева одного приложения перетянуть мышкой в любой узел дерева другого приложения???

В общем случае это нельзя сделать, но если сильно постараться, то можно.
Смотри например такие компоненты: http://melander.dk/delphi/dragdrop

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

poli-smen, а как сделать что бы по двойному щелчку мыши на определенном узле менялся размер шрифта, жирность и цвет узла и при повторном двойном щелчке на этом узле эти параметры возвращались к исходным???

TTreeView не поддерживает рисование узлов разным шрифтом. Если тебе это нужно, то прийдётся узлы рисовать самому в обработчике OnCustomDrawItem