Урок 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 7 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 5 months 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 7 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 7 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 7 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 6 months 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 6 months 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 6 months 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 6 months 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 6 months 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 6 months 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 6 months 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 6 months 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 5 months 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 5 months 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 5 months 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 5 months 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 5 months 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 5 months 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]
  19. bkzvgqroz
    bkzvgqroz 4 months ago
    Урок 18 - Знакомство с компонентами (часть 9/12) - The Delphi
    bkzvgqroz http://www.ga172smsvb0b8t94u94ja9d6384g2xr8s.org/
    [url=http://www.ga172smsvb0b8t94u94ja9d6384g2xr8s.org/]ubkzvgqroz[/url]
    <a href="http://www.ga172smsvb0b8t94u94ja9d6384g2xr8s.org/">abkzvgqroz</a>
  20. ドルチェ バッグ コピー
    ドルチェ バッグ コピー 3 months ago
    ブランド コピー 販売 店_allbrandsjp2021シュプリーム パーカー スーパー主にブランド スーパーコピー シュプリーム SUPREME コピー通販 ... シュプリーム コピー,シュプリーム パーカー 偽物,シュプリーム リュック コピー,supreme t シャツ コピー, シュプリーム.シュプリームコピー新作激安販売店,最高级シュプリーム.
    [url=http://amusecandy.com/blogs/post/608194]ドルチェ バッグ コピー[/url]
  21. alkanna
    alkanna 2 months ago
    [url=http://fcialisj.com/]real cialis no generic[/url]
  22. lyixddzch
    lyixddzch a month ago
    Урок 18 - Знакомство с компонентами (часть 9/12) - The Delphi
    lyixddzch http://www.g8m1765o439l0ik29745ngrtm6akzxh2s.org/
    <a href="http://www.g8m1765o439l0ik29745ngrtm6akzxh2s.org/">alyixddzch</a>
    [url=http://www.g8m1765o439l0ik29745ngrtm6akzxh2s.org/]ulyixddzch[/url]
  23. alkanna
    alkanna a month ago
    <a href="https://fcialisj.com/">cialis online prescription[/url]</a>
  24. training weighted vest
    training weighted vest a month ago
    Reduced obesity for weighted-vest wearers -iamazonsurmountwayweightedvest_2021 Scientists have found a new method of reducing human body weight and fat mass using weighted vests. Are you ready for a weight vest? Just in case you weren't aware, weight vests are exactly as they sound: heavy vests. The weighted vest is one of the simplest (and most stylish) gym accessories, and can be used to enhance almost any workout routine.Weighted Vests are perfect for adding resistance to a workout.
    [url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&amp;keywords=adjustable+weight+weighted+vest&amp;qid=1618544826&amp;sr=8-33]training weighted vest[/url]
  25. training weighted vest for running
    training weighted vest for running a month ago
    If you are limited to low-impact activities such as walking or hiking,iamazonsurmountwayweightedvest_2021 adding a weighted vest can increase the aerobic intensity and stress on muscles and joints,From weighted running vests to adjustable options, these are the best ... Something heavier is helpful if you're training for a backpacking trip.
    [url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&amp;keywords=adjustable+weight+weighted+vest&amp;qid=1618544826&amp;sr=8-33]training weighted vest for running[/url]
  26. adjustable weighted vest men
    adjustable weighted vest men a month ago
    Weighted Vests - Quality Training Vests for Fitness Training.iamazonsurmountwayweightedvest_2021Training with a weighted vest can completely revolutionize your workout regimen. Looking to level up your workouts with weighted vests? Strength training weighted vests are available in a range of sizes and types by different manufacturers. Running with a Weight Vest - Benefits and Types of Exercises.Advanced athletes and runners sometimes incorporate weighted vests during their jogs to amplify the benefits of regular running.
    adjustable weighted vest men https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&amp;keywords=adjustable+weight+weighted+vest&amp;qid=1618544826&amp;sr=8-33
  27. adjustable weight weighted vest
    adjustable weight weighted vest 25 days ago
    Why Weighted Vests Can Benefit Your Work Out -iamazonsurmountwayweightedvest_2021Wearing a weighted vest does more than prepare you to carry a heavy backpack. It works nearly every muscle in your body, including your core.You can wear a weighted vest for more challenging walks such as hiking trails and the loose sands of a beach. oing for a walk or hike wearing a weighted vest is a great way to trun an easy walk into a major workout.
    [url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&amp;keywords=adjustable+weight+weighted+vest&amp;qid=1618544826&amp;sr=8-33]adjustable weight weighted vest[/url]
Отменить.