Урок 18 - Знакомство с компонентами (часть 9/12)

  В этом уроке мы продолжаем изучать вкладку Win32.
  В этот раз мы будем рассматривать компонент под названием TreeView. Мы научимся добавлять, удалять, изменять и сортировать.

   Этот компонент предназначен для отображения сложной иерархической структуры данных. Например в левой области проводника Windows используется этот компонент для быстрой навигации по папкам.

   И так перейдём к делу, на понадобятся компоненты: 1 TTreeView, 4 TButton, 1 TLabel и TEdit. У первой Caption давайте сделаем "Добавить", у второй "Удалить", третьей "Добавить потомка" и для четвертой "Изменить". Разместите все компоненты вот так:

Расположение компонентов


   Как и у ListView, у этого компонента есть собственный редактор строк. Вызовем его кликнув по свойству Items в Object Inspetor. Появилось вот такое окно:

TreeView Items Editor


   Оно похоже на то, что использовалось в ListView, за исключением лишь одной функции, TreeView обладает функцией загрузки/сохранения текущей информации и соответственно добавилась одна кнопка "Load". Добавляем новый Item и Text у него "Программы", добавим еще один с текстом "Игры", и "Картинки", в последний добавим потомка, клик по "New SubItem" с текстом "Фото". Скомпилируем и посмотрим что получилось. Нажав на плюсик находящийся перед "Картинки", разворачивается список и в нем наш потомок, а "Картинки" это родитель.

TreeView


   Теперь приступим к добавлению строк. Как и в прошлом уроке нам понадобится текущий выделенный Item. Создадим 2 глобальных переменных t:integer и MyNode:TTreesNode ну и обработчик события TreeView, OnChange:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
MyNode:=Node;
t:=Node.AbsoluteIndex;
Label1.Caption:= IntToStr(t);
end;
   Проверим... Обратите внимание, казалось бы потомок должен иметь индекс 2.1, но это не так, в TreeView в каком порядке развернуты потомки такие они имеют индексы, то есть в нашем случае потомок "Фото" имеет индекс 3. MyNode здесь нужна для того чтоб узнать какой родительский Item сейчас выделен.

   Ну а теперь можно и добавить. Вытащим TEdit, чтоб можно было задавать имя нового элемента.

   Создадим обработчик события Button1, OnClick:
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.Add(MyNode, Edit1.Text);
end;
   Ну и сразу же добавим потомка. Создадим обработчик события Button2, OnClick:
procedure TForm1.Button2Click(Sender: TObject);
begin
TreeView1.Items.AddChild(MyNode, Edit1.Text);
end;
   Научимся удалять. Создадим обработчик события Button3, OnClick:
procedure TForm1.Button3Click(Sender: TObject);
begin
TreeView1.Items.Item[t].Delete;
end;
   Изменим элемент. Создадим обработчик события Button4, OnClick:
procedure TForm1.Butto4Click(Sender: TObject);
begin
TreeView1.Items.Item[t].Text:=Edit1.Text;
end;
   Теперь мы можем полноценно редактировать содержимое компонента, но не хватает сортировки. Сортировка управляется свойством SortType, установим сортировку по алфавиту: stText

   Ну вот и все, вот что у нас получилось:

Результат


   В следующем уроке мы начнём изучение компонентов с вкладки System, первым компонентом будет TTimer.

Удачи!
Встретимся в следующем уроке!




Добавил(а): pukkup74 Дата: 2013-11-01
Не TTreesNode,а TTreeNode



Добавил(а): _Bes_ Дата: 2014-03-13
Здесь начиная с первой кнопки компилятор не пропускает. procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; Label1.Caption:=IntToStr(t); end; procedure TForm1.Button1Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.Add(MyNode, Edit1.Text); end; procedure TForm1.Button3Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.AddChild(MyNode, Edit1.Text); end; procedure TForm1.Button2Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.Item[t].Delete; end; procedure TForm1.Button4Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.Item[t].Text:=Edit1.Text; end; end. ужу всё перепробовал!!!



Добавил(а): anast-96m@mail.ru Дата: 2015-04-25



Добавил(а): evgen_2017 Дата: 2017-10-26
Добавил(а): _Bes_ [Новичок] Дата: 2014-03-13 Здесь начиная с первой кнопки компилятор не пропускает. procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; Label1.Caption:=IntToStr(t); end; procedure TForm1.Button1Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.Add(MyNode, Edit1.Text); end; procedure TForm1.Button3Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.AddChild(MyNode, Edit1.Text); end; procedure TForm1.Button2Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.Item[t].Delete; end; procedure TForm1.Button4Click(Sender: TObject); var t:Integer; MyNode:TTreeNode; begin MyNode:=Node; t:=Node.AbsoluteIndex; TreeView1.Items.Item[t].Text:=Edit1.Text; end; end. ужу всё перепробовал!!! Зачем ты в каждой процедуре обьявляешь t:integer mynode:treenode. если ты обьявил уже их там где глобальные переменные,в шапке кода? и на кой хер ты присваиваешь в каждой процедуре им значения? просто делай всё так как написано в уроке,все получится.


  1. Jaavave
    Jaavave 2 months ago
    <a href="https://www.vids4tube.com/videos/my-assholle/">https://www.vids4tube.com/videos/my-assholle/</a> https://www.vids4tube.com/videos/chubby-girl-gets-a-cock-in-her-tight-pussy/
    <a href="https://www.venusargo.com/videos/tiktok-challenge-girl-edition/">https://www.venusargo.com/videos/tiktok-challenge-girl-edition/</a> https://www.venusargo.com/videos/mi-amiga-y-yo-super-caliente-en-el-carro-de-mi-hermanastra/
    <a href="https://www.host4see.com/videos/con-una-hembrita-prepago/">https://www.host4see.com/videos/con-una-hembrita-prepago/</a> https://www.host4see.com/videos/getting-fucked-from-behind-by-dildo-with-front-camera-on-boobs/
    • Technology
      Technology 22 days ago
      The scientific and technical script of the film is focused on advanced scientific and technical ideas, projects, hypotheses, research. Anyone can write their own episode or module for a public script or translate any of the existing episodes into a foreign language. All copyrights are respected. http://www.oflameron.ru/dnl00032r.htm This wiki script allows you to find new technical ideas for development and research and find talented engineers and scientists who are able to study and create new directions.

  2. DaFAw
    DaFAw 2 months ago
    Шанс часто развиваться по обновленные новинки Xbox, Uplay, Steam, egs, EA плей получается всегда, ежели геймер используете веб-ресурсом торговой магазина, которая действует платформой для приобретения аккаунтов с игровыми обновлениями также играющих бонусами. На ресурсе <a href="https://irongamers.ru/sale/">магазины компьютерных игр в москве адреса irongamers.ru</a> юзеры может определить аккаунт важной обновления и приобрести его по хорошей цене в малое количество 5 минут, для того чтобы мгновенно предоставить вход по новой выпуску. Платформа irongames систематически ведет сбыт плюс низкую стоимость к популярные развлечения текущего года, еще накануне перевода средств клиент может увидеть мнение аналогичных покупателей о https://irongamers.ru/sale/ выбранного продажника к тому же исполнять рациональную и скорую оплату оформленной ключа. Мы выполняет следку благодаря проверенного услуг, который позволяет осуществлять мгновенный оплату и мгновенно же обретать электронный доступ. Онлайн гейм платформа произвела IronGamers.Ru/sale/ максимально приспособленный удобство поиска необходимой игры, кодов также аккаунтов именно для такого, что бы абоненты имели возможность непосредственно общаться с продавцом, отслеживать личные покупки затем обретать отличный обслуживание во время оплаты.
  3. Wihon
    Wihon 2 months ago
    philippine phone number <a href="https://virtual-local-numbers.com/countries/47-philippines.html">https://virtual-local-numbers.com/countries/47-philippines.html</a> | <a href="https://virtual-local-numbers.com/">https://virtual-local-numbers.com/</a>
  4. Kehed
    Kehed 2 months ago
    Весомое использование минералов для всеобразных отраслях подкреплено тем, что минералы имеют большое количество эффективных атрибутов, которые владельцы сумеют потреблять у личной сферах. Большинство драгоценных камней совмещают лечебные, органические также даже чародейные атрибуты, которые тестировались ещё у древнем стране пирамид. Теперь мы советуем пользователю увидеть сайт <a href="https://kamniguru.ru/podelochnye-kamni">камни полудрагоценные поделочные</a>, там где юзеры имеют возможность погрузиться к впечатляющему мир камушком также увеличить наработанные сведения про разновидности, характеристики к тому же модификации камней, и еще уразуметь, как минералы имеют возможность необычно оказывать влияние с личным состоянием также жизнедеятельность. И в случае если пользователь новичок в геологии Вы сможете <a href="https://kamniguru.ru/">https://kamniguru.ru/</a> очень легко сориентироваться касательно управлению по ресурсе затем выйти по занятные именно для пользователя описания: знаменитые украшения, полудрагоценные минеральные элементы, менее ценные минералы, талисманы из камней ориентируясь на знакам зодиака, тон также величины. Писатель материалов про камни является высокопрофессиональным ученый и геологом, поэтому выложенная сведения KamniGuru.Ru точно обоснована также. Презентованный сайт под любого гостя сложена значительным открытием в формате камней. Рады https://kamniguru.ru/ приветствовать !
  5. RoLoogy
    RoLoogy a month ago
    <a href="https://www.chemcook.com/american-swingers-join-a-new-lifestyle__trashed/">https://www.chemcook.com/american-swingers-join-a-new-lifestyle__trashed/</a>

    <a href="https://www.doornight.com/cuckold-wife-sucks-bf-off/">https://www.doornight.com/cuckold-wife-sucks-bf-off/</a>

    <a href="https://www.mainmovs.com/two-girls-fucked-in-forest/">https://www.mainmovs.com/two-girls-fucked-in-forest/</a>

    <a href="https://www.masturbaza.com/actor/bridgette-b/">https://www.masturbaza.com/actor/bridgette-b/</a>

    <a href="https://www.vulpyx.com/dilettante-beauties-suck-at-a-party/">https://www.vulpyx.com/dilettante-beauties-suck-at-a-party/</a>
  6. New Jordan Shoes For Women
    New Jordan Shoes For Women a month ago
    Air Jordans 11 - bestairjordansuscheaps2021 Michael Jordan Shoes,Buy and sell Air Jordan 11 shoes at the best price, the live marketplace for 100% real Air Jordan sneakers and other popular new releases.
    [url=http://www.cheaprealairjordanshoes.com/new-jordan-shoes-for-women-c-66.html]New Jordan Shoes For Women[/url]
  7. Newest Jordan Shoes
    Newest Jordan Shoes a month ago
    Nike Lebron James Sneakers | Shop the latest Nike Lebron James Sneakers, bestairjordansuscheaps2021 including the LeBron 16 'Four Horsemen' and more!Los Angeles Lakers | Forward Shoe Size: 15. King James is an endorsement juggernaut, and his shoe deal with Nike is rumored to be worth more than a billion.
    <a href="http://www.classicairjordanshoes.com/newest-jordan-shoes-c-34.html">Newest Jordan Shoes</a>
  8. Tvuh
    Tvuh a month ago
    <a href="https://www.anal4us.com/videos/291496/do-you-want-to-eat-my-hairy-chocha/">https://www.anal4us.com/videos/291496/do-you-want-to-eat-my-hairy-chocha/</a>
    <a href="https://www.analibiza.com/videos/133802/the-famous-mommy-youtuber-big-boobs/">https://www.analibiza.com/videos/133802/the-famous-mommy-youtuber-big-boobs/</a>
    <a href="https://milfanaliz.com/videos/33434/zero-two-facial-pov-darling-in-the-franxx/">https://milfanaliz.com/videos/33434/zero-two-facial-pov-darling-in-the-franxx/</a>
  9. Jordan Shoes 5
    Jordan Shoes 5 a month ago
    Nike LeBron James Basketball Shoes &amp; Sneakers |bestairjordansuscheaps2021 LeBron James has already arguably had a Hall of Fame career despite still playing. Great prices and discounts on the best baseball jerseys, basketball.
    [url=http://www.cheap2019jordanshoes.com/jordan-shoes-5-c-9.html]Jordan Shoes 5[/url]
  10. Midnight Air Jordans
    Midnight Air Jordans a month ago
    Nike LeBron James Sneakers for Men for Sale | Find great deals on Nike LeBron James Basketball Shoes for Men bestairjordansuscheaps2021 ... genuine authentic nike lebron xvi low mens size 8 w/original box.LeBron James is a generational talent.
    [url=http://www.originaljordanshoes.com/midnight-air-jordans-c-31.html]Midnight Air Jordans[/url]
  11. alkanna
    alkanna a month ago
    Propecia Que Necesitan Receta Inimeneidigh [url=https://bansocialism.com/]buy cialis online reviews[/url] diunny Amoxicillin For Sale Overnight
  12. Air Jordan Shoes For Sale
    Air Jordan Shoes For Sale 29 days ago
    Buy cheap jordan 11 Shoes 45-70$.bestairjordansuscheaps2021 The Air nike huarache pro mid metal nrg price comparison Jordan 11 are the most famous and most.Nike Air Jordan 11 Retro Low Concord Bred Men's Shoes White/Red-Black AV2187-160. $219.00. Free shipping.
    <a href="http://www.classicairjordanshoes.com/">Air Jordan Shoes For Sale</a> [url=http://www.classicairjordanshoes.com/]Air Jordan Shoes For Sale[/url]
  13. Hi grade
    Hi grade 22 days ago
    The scientific and technical script of the film is focused on advanced scientific and technical ideas, projects, hypotheses, research. Anyone can write their own episode or module for a public script or translate any of the existing episodes into a foreign language. All copyrights are respected. http://www.oflameron.ru/dnl00032r.htm This wiki script allows you to find new technical ideas for development and research and find talented engineers and scientists who are able to study and create new directions.
  14. HiTech
    HiTech 21 days ago
    The script for a science adventure film allows you to use any technical idea and the most incredible scientific ideas. Some ideas will turn out to be impracticable later. But some ideas can be implemented in industrial or military designs. http://www.oflameron.ru/dnl00032y.htm
    Now the script exists only in Russian. When the translation into other languages is completed, the number of episodes, the number of technical and scientific ideas, the number of competent specialists will expand significantly. When making a movie, you can choose the most interesting episodes and the most interesting technical ideas.
  15. eiclxfheg
    eiclxfheg 14 days ago
    Урок 18 - Знакомство с компонентами (часть 9/12) - The Delphi
    [url=http://www.g4k6b72x4b3b6my87a908dxea6x51k2ws.org/]ueiclxfheg[/url]
    <a href="http://www.g4k6b72x4b3b6my87a908dxea6x51k2ws.org/">aeiclxfheg</a>
    eiclxfheg http://www.g4k6b72x4b3b6my87a908dxea6x51k2ws.org/
  16. Nike Air Jordan Shoes
    Nike Air Jordan Shoes 14 days ago
    Official Air Jordans Shoes For Sales,Cheap Jordans Online,cheap jordans for sale,cheap jordans-Original Cheap Jordans Online Store,Supply Men Jordans,Women Jordans For Sale
    Nike Air Jordan Shoes http://www.originalnikekdshoes.com/nike-air-jordan-shoes-c-109.html
  17. FhyQW
    FhyQW 9 days ago
    Meds information sheet. What side effects? <a href="https://viagra4u.top">can i buy cheap viagra without rx</a> in the USA. Best about pills. Read information here.
    [url=http://shop.khunjib.com/product/311/%E0%B8%8A%E0%B8%B8%E0%B8%94%E0%B8%84%E0%B8%B9%E0%B9%88%E0%B8%A3%E0%B8%B1%E0%B8%81%20%E0%B8%A5%E0%B8%B2%E0%B8%A2%E0%B8%81%E0%B8%A3%E0%B8%B0%E0%B8%95%E0%B9%88%E0%B8%B2%E0%B8%A2%20%E0%B8%9A%E0%B8%B1%E0%B9%8A%E0%B8%84%E0%B8%9A%E0%B8%B1%E0%B8%99%E0%B8%99%E0%B8%B5%E0%B9%88%20Set%204%20%E0%B8%8A%E0%B8%B4%E0%B9%89%E0%B8%99.html]Some trends of drug.[/url] [url=https://blog2.huayuworld.org/ottawayang/2016/09/04/moodle-insert-keyboard/#comment-547]Everything information about drugs.[/url] [url=http://culturia.nl/node/47#comment-4622]All news about meds.[/url] 10bd897
  18. Nike Air Max 90
    Nike Air Max 90 a day ago
    Nike Lebron James Sneakers | Shop the latest Nike Lebron James Sneakers, bestairjordansuscheaps2021 including the LeBron 16 'Four Horsemen' and more!Los Angeles Lakers | Forward Shoe Size: 15. King James is an endorsement juggernaut, and his shoe deal with Nike is rumored to be worth more than a billion.
    [url=http://www.originalnikerunningshoes.com/nike-air-max-90-c-127.html]Nike Air Max 90[/url]
Отменить.