Пару вопросов по TreeView

[Kaban4ig]

Всем привет. Я добавляю детей прикрепляя объект через TreeView1.Items.AddChildObjectFirst . 1) Как например мне в событии онклик обратится к объекту который был прикреплен к этому узлу? 2) Можно ли при построение дерева выключить постоянную его перерисовку ?

[volvo877]

1) Как например мне в событии онклик обратится к объекту который был прикреплен к этому узлу?

AddChildObjectFirst добавляет ссылку на объект в поле Data, поэтому всё, что тебе нужно - преобразовать содержимое этого поля к нужному типу и получить нужное поле объекта (или вызвать нужный метод):

procedure TForm1.TreeView1Click(Sender: TObject);
begin
   TYourClass((Sender as TTreeView).Selected.Data).YourField := То_что_нужно
end;

2) Можно ли при построение дерева выключить постоянную его перерисовку ?

Можно.

TreeView1.Items.BeginUpdate;
// Тут перерисовки не будет
TreeView1.Items.EndUpdate;

[Kaban4ig]

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

AddChildObjectFirst добавляет ссылку на объект в поле Data, поэтому всё, что тебе нужно - преобразовать содержимое этого поля к нужному типу и получить нужное поле объекта (или вызвать нужный метод):

procedure TForm1.TreeView1Click(Sender: TObject);
begin
   TYourClass((Sender as TTreeView).Selected.Data).YourField := То_что_нужно
end;

Можно.

TreeView1.Items.BeginUpdate;
// Тут перерисовки не будет
TreeView1.Items.EndUpdate;

Спасибо, но перерисовка не помогла. У меня каким-то образом при добавлении детей их названия пишутся в название формы(!).

[Аватар]

У меня каким-то образом при добавлении детей их названия пишутся в название формы(!).

Волшебным? Код событий TreeView посмотрите, может там собака зарыта. И код свой покажите

[Kaban4ig]

procedure TForm1.Button6Click(Sender: TObject);
begin

  Current := Head;

  // Отображаем дерево
  TreeView1.Items.BeginUpdate;

  TreeView1.Items.Clear;
  TreeView1.Items.AddObject(nil, IntToStr(Current^.YzelPl), Current);
  SeeTree;

  TreeView1.Items.EndUpdate;

end;

procedure TForm1.SeeTree;
var
  I: byte;

begin

  for I := 1 to 8 do
    if Current^.Sled[I] <> nil then
    begin

      Current := Current^.Sled[I];

      // Указатель на текущую запись
      Point := Current;
      TreeView1.Items.AddChildObjectFirst
        (TreeView1.Items[Current^.LevelTree - 1], Text, Point);
      SeeTree;

    end;

  Current := Current^.Pred;

end;

[Kaban4ig]

Ещё вопрос, а как очистить потом память от объектов которые я прикрепил? Или TreeView1.Items.Clear достаточно?

[Аватар]

По этому куску кода не видно почему в название формы что-то пишется. Не понятно какие значения в переменной Text. Освобождать память самому нужно

[volvo877]

Или TreeView1.Items.Clear достаточно?

Нет, не достаточно. AddChildObjectFirst говорит:

Note: The memory referenced by Ptr is not freed when the tree nodes object is freed.

, так что придется тебе сначала проходить по всем узлам, и если Data <> nil корректно удалять объект из памяти (что такое у тебя добавляется, и как оно инициализируется - ты так и не показал, поэтому как удалить - это уж тебе одному известно), и только потом очистить дерево через Items.Clear... Я обычно пишу вот такой метод:

procedure TForm1.ClearTree;
var i : Integer;
begin
   for i := 0 to TreeView1.Items.Count - 1 do
      if Assigned(TreeView1.Items[i].Data) then
         TMyСlass(TreeView1.Items[i].Data).Free;
   TreeView1.Items.Clear;
end;

, и вызываю его, когда нужно очистить дерево.

А по поводу BeginUpdate/EndUpdate - ты бы показал, как у тебя заполняется та структура, из которой потом строится дерево, а то восстанавливать - не очень охота - было бы понятнее, что не так...

[flexterful]

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

Я обычно пишу вот такой метод:

Надёжнее описать так :

procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
 if Assigned(Node.Data) then 
  if Node.Data is TObject
   then TObject(Node.Data).Free;
end;

+ При стерании (как одной так и всех записей) либо перезаписи будет вызван сей обработчик и освободит объект.
+ Подходит для любого типа объекта, ибо все они дети TObject.
+ Небудет ломаться, если в некоторых полях будут стоять указатели на строки или числа.