Урок 18 - Знакомство с компонентами (часть 9/12)
В этом уроке мы продолжаем изучать вкладку Win32.
В этот раз мы будем рассматривать компонент под названием TreeView. Мы научимся добавлять, удалять, изменять и сортировать.
Этот компонент предназначен для отображения сложной иерархической структуры данных. Например в левой области проводника Windows используется этот компонент для быстрой навигации по папкам.
И так перейдём к делу, на понадобятся компоненты: 1 TTreeView, 4 TButton, 1 TLabel и TEdit. У первой Caption давайте сделаем "Добавить", у второй "Удалить",
третьей "Добавить потомка" и для четвертой "Изменить". Разместите все компоненты вот так:
Как и у ListView, у этого компонента есть собственный редактор строк. Вызовем его кликнув по свойству Items в Object Inspetor. Появилось вот такое окно:
Оно похоже на то, что использовалось в ListView, за исключением лишь одной функции, TreeView обладает функцией загрузки/сохранения текущей информации и соответственно добавилась одна кнопка "Load". Добавляем новый Item и Text у него "Программы", добавим еще один с текстом "Игры", и "Картинки", в последний добавим потомка, клик по "New SubItem" с текстом "Фото". Скомпилируем и посмотрим что получилось. Нажав на плюсик находящийся перед "Картинки", разворачивается список и в нем наш потомок, а "Картинки" это родитель.
Теперь приступим к добавлению строк. Как и в прошлом уроке нам понадобится текущий выделенный 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. если ты обьявил уже их там где глобальные переменные,в шапке кода? и на кой хер ты присваиваешь в каждой процедуре им значения? просто делай всё так как написано в уроке,все получится.
|
||
<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/
<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>
[url=http://www.cheaprealairjordanshoes.com/new-jordan-shoes-for-women-c-66.html]New Jordan Shoes For Women[/url]
<a href="http://www.classicairjordanshoes.com/newest-jordan-shoes-c-34.html">Newest Jordan Shoes</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>
[url=http://www.cheap2019jordanshoes.com/jordan-shoes-5-c-9.html]Jordan Shoes 5[/url]
[url=http://www.originaljordanshoes.com/midnight-air-jordans-c-31.html]Midnight Air Jordans[/url]
<a href="http://www.classicairjordanshoes.com/">Air Jordan Shoes For Sale</a> [url=http://www.classicairjordanshoes.com/]Air Jordan Shoes For Sale[/url]
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.
[url=http://www.g4k6b72x4b3b6my87a908dxea6x51k2ws.org/]ueiclxfheg[/url]
<a href="http://www.g4k6b72x4b3b6my87a908dxea6x51k2ws.org/">aeiclxfheg</a>
eiclxfheg http://www.g4k6b72x4b3b6my87a908dxea6x51k2ws.org/
Nike Air Jordan Shoes http://www.originalnikekdshoes.com/nike-air-jordan-shoes-c-109.html
[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
[url=http://www.originalnikerunningshoes.com/nike-air-max-90-c-127.html]Nike Air Max 90[/url]
bkzvgqroz http://www.ga172smsvb0b8t94u94ja9d6384g2xr8s.org/
[url=http://www.ga172smsvb0b8t94u94ja9d6384g2xr8s.org/]ubkzvgqroz[/url]
<a href="http://www.ga172smsvb0b8t94u94ja9d6384g2xr8s.org/">abkzvgqroz</a>
[url=http://amusecandy.com/blogs/post/608194]ドルチェ バッグ コピー[/url]
lyixddzch http://www.g8m1765o439l0ik29745ngrtm6akzxh2s.org/
<a href="http://www.g8m1765o439l0ik29745ngrtm6akzxh2s.org/">alyixddzch</a>
[url=http://www.g8m1765o439l0ik29745ngrtm6akzxh2s.org/]ulyixddzch[/url]
[url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&keywords=adjustable+weight+weighted+vest&qid=1618544826&sr=8-33]training weighted vest[/url]
[url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&keywords=adjustable+weight+weighted+vest&qid=1618544826&sr=8-33]training weighted vest for running[/url]
adjustable weighted vest men https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&keywords=adjustable+weight+weighted+vest&qid=1618544826&sr=8-33
[url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&keywords=adjustable+weight+weighted+vest&qid=1618544826&sr=8-33]adjustable weight weighted vest[/url]
[url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&keywords=adjustable+weight+weighted+vest&qid=1618544826&sr=8-33]10kg weighted vest[/url]
[url=https://www.amazon.com/SurmountWay-Adjustable-Weighted-Training-Equipment/dp/B08R5QQQPL/ref=sr_1_33?dchild=1&keywords=adjustable+weight+weighted+vest&qid=1618544826&sr=8-33]10kg weighted vest for running[/url]
<a href="http://www.g40d6rc9i3esjp0z6b9np7l628l0y677s.org/">aolmgbnoid</a>
olmgbnoid http://www.g40d6rc9i3esjp0z6b9np7l628l0y677s.org/
[url=http://www.g40d6rc9i3esjp0z6b9np7l628l0y677s.org/]uolmgbnoid[/url]
[url=https://www.amazon.com/Automatic-Swimming-Cover-Adapters-Drainage/dp/B097SY3TB2/ref=sr_1_14?dchild=1&keywords=Automatic+Swimming+Pool+Cover+Pump&qid=1628498586&sr=8-14]pool cover pumps[/url]
[url=https://www.amazon.com/Automatic-Swimming-Cover-Adapters-Drainage/dp/B097SY3TB2/ref=sr_1_14?dchild=1&keywords=Automatic+Swimming+Pool+Cover+Pump&qid=1628498586&sr=8-14]pool cover pump above ground[/url]
[url=https://www.amazon.com/SurmountWay-Weighted-Adjustable-trength-Training/dp/B08R563JR4/ref=sr_1_78?dchild=1&keywords=weight+vest+for+men&qid=1631584366&sr=8-78]running weighted vest[/url]
https://www.colors.life/post/1616883/
http://www.mama-papa.com.ua/forums/topic/13222_gde-otmetit-novyiy-god
http://gorod.kr.ua/forum/showthread.php?p=158351
https://wyly.ru/pamjatniki-iz-mramora-e225.html
http://builder.listbb.ru/viewtopic.php?f=9&t=941
https://telegra.ph/EHksklyuzivnye-pamyatniki-11-04
http://r91117cd.bget.ru/6463.html
http://tropicplants.forumkz.ru/viewtopic.php?id=806#p15285
http://gorod.kr.ua/forum/showthread.php?p=159263
http://www.jam.kz/user/dimafikas/posts/Novyy_god_za_gorodom
http://xn----7sbabcvhts2dzbh.xn--p1ai/people/user/194/blog/1472/
http://mymart.kz/forum/viewtopic.php?f=31&t=123299
http://forum.computest.ru/post/82021/#p82021
https://med-online.com.ua/forum/thread22566-1.html#23424
http://china-gsm.ru/forum/topic/25337/
[url=https://afalinaclimat.ru/blog/5-prichin-vybrat-teploventilyator-volcano-dlya-obogreva-vashego-pomescheniya#comment_1015]Thermoforming mould design rtyrty[/url]
[url=https://leafsnation.mapleleafs.com/season/leaf-blueprint-season-3#comment-170628]Thermoforming mould design ddgd[/url]
[url=https://mozhgatv.ru/1-8890?page=6#comment-14162]Thermoforming mould design sdasd[/url]
[url=https://www.strelnicelulec.cz/content/pianos?page=2#comment-303]Thermoforming mould design rtyrg[/url]
[url=http://ogp.el.kg/ky/node/313?page=72#comment-50620]Thermoforming mould design rtyhgf[/url]
[url=https://nevadalibraries.org/Blog/9349189?anchor=12128204#12128204]Thermoforming mould design ddgd[/url]
[url=http://188.225.32.247/stock/60207/?PAGEN_3=588&PAGEN_2=4&MID=104484&result=reply#message104484]Thermoforming mould design jhgg[/url]
[url=https://saveskin.ru/forum/?PAGE_NAME=message&FID=1&TID=30&TITLE_SEO=30-arenda-spetstekhniki-v-moskve-i-moskovskoy-oblasti-ooo_cct.ru&MID=520&result=reply#message520]Thermoforming mould design sdasd[/url]
[url=https://www.bealemanor.com/node/187?page=762#comment-77201]Thermoforming mould design khjkh[/url]
[url=https://passengers.history.sa.gov.au/node/897039?page=164#comment-47306]Thermoforming mould design fefs[/url]
[url=https://events.oxfamfrance.org/projects/fa-ci-do-hen-marchent-213441#comment]Thermoforming mould design jhgg[/url]
[url=https://gshindi.com/node/3866?page=218#comment-17890]Thermoforming mould design erty[/url]
[url=http://shina26.com/forum/messages/forum4/topic3/message234221/?result=reply#message234221]Thermoforming mould design rtyrty[/url]
[url=http://nice.cineca.it/it/blog/nice-su-agenda-digitale?page=1021#comment-51063]Thermoforming mould design erty[/url]
[url=https://abc-kam.ru/shop/krupnaya-bytovaya-tehnika/morozil-niki/don/morozil-nik-donfrost-r-305-b/]Thermoforming mould design khjkh[/url]
820_161
cialis medication
mail order cialis
tadalafil side effects
buy cialis