Mavzu: Dasturlash tillari faniga kirish. Ob’ektga yo‘naltirilgan dasturlash tillari

var 

CaptionStr:String; 

NewNode:TTreeNode; 

begin 

CaptionStr:=''; 

if not InputQuery('

Ввод имени подэлемента

', 

'

Введите заголовок подэлемента

',CaptionStr) then exit; 

NewNode:=TreeView1.Items.AddChild(TreeView1.Selected, CaptionStr); 

if NewNode.Parent<>nil then 

NewNode.ImageIndex:=1; 

Бу процедура олдингисидан фарқи AddChild усули қўлланганлиги. Бу усул 

авлод элемент қўшади. Қўшилган элемент аждоди жорий элементдир. 

«Удалить» тугмаси учун процедура: 

 

if TreeView1.Selected<>nil then 

TreeView1.Items.Delete(TreeView1.Selected); 

Олдинига ажратилган элемент дарахтда мавжудлиги текширилалди: 

http://www.vr-online.ru 

238 

if TreeView1.Selected<>nil then 

Агар мавжудбулса Delete усули қўлланилади: 

TreeView1.Items.Delete(TreeView1.Selected); 

 «Изменить заголовок» тугмаси учун қуйидаги код  киритамиз: