Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Май

Пример как присвоить узлам TreeView свои индексы

Posted by Chas under Delphi

Теперь мне нужно вот что: присвоить созданным подузлам номер итема, что в дальнейшем, в самом дереве, я мог обращаться к ним для, например, удаления выбранного узла или дальнейших действий с этим индексом итема.

Аватар

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, StdCtrls;
type

  TForm1 = class(TForm)

    TreeView1: TTreeView;

    Label1: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);

var Node: TTreeNode;

begin

  {Заполнение TreeView1}

  TreeView1.HideSelection:=False;

  Node:=TreeView1.Items.AddObject(nil,'Узел 1',Pointer(1));

  TreeView1.Items.AddChildObject(Node,'Узел 1.1',Pointer(2));

  TreeView1.Items.AddChildObject(Node,'Узел 1.2',Pointer(3));

  Node:=TreeView1.Items.AddObject(nil,'Узел 2',Pointer(4));

  TreeView1.Items.AddChildObject(Node,'Узел 2.1',Pointer(5));

  TreeView1.Items.AddChildObject(Node,'Узел 2.2',Pointer(6));

  TreeView1.FullExpand;

end;
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);

begin

  {Отображение номера выделенного узла в Label1}

  if Node=nil then Label1.Caption:='Not Selected'

              else Label1.Caption:=Format('Номер узла = %d',[Integer(Node.Data)]);

end;
procedure TForm1.Button1Click(Sender: TObject);

var Value,i: Integer;

    Node: TTreeNode;

begin

  {Поиск узла по номеру заданному Edit1}

  if not TryStrToInt(Edit1.Text,Value) then Label1.Caption:='Введите целое число'

  else begin

    Node:=nil;

    for i:=0 to TreeView1.Items.Count-1 do

      if Integer(TreeView1.Items.Item.Data)=Value then begin

        Node:=TreeView1.Items.Item;

        Break;

      end;

    if Node=nil then Label1.Caption:='Узел не найден'

                else TreeView1.Selected:=Node;

  end;

end;
end.