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

procedure TTreeViewForm.AddButtonClick(Sender: TObject); 

var 

CaptionStr: 

NewNode:TTreeNode; 

begin 

CaptionStr:=''; 

if not InputQuery('

Ввод имени

', '

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

',CaptionStr) 

then exit; 

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

if NewNode.Parent<>nil then 

NewNode.ImageIndex:=1; 

end; 

 

Бу  ерда  икки  ўзгарувчи  ишлатилган:  сатр  туридаги  CaptionStr  ва 

TTreeNode туридаги NewNode. TTreeNode – тури бу дарахт элементи туридир. 

Биринчи қаторда CaptionStr қиймати бўш символга тенг қилинади.  

Иккинчи қатор элемент сарлавҳаси киритилади 

if  not  InputQuery('

Ввод  имени

',  '

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

',  CaptionStr) 

then 

exit; 

Киритиш ойнаси кўриниши. 

 

Агар ОК тугмаси босилмаган бўлса процедурадан чиқилади: 

if not InputQuery(…) then 

exit; 

---

Кейинги қатор янги элемент қўшади: 

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

TreeView1 компонентасининг Items хоссасида ҳамма элементлар сақланади. 

Янги элемент қўшиш учун Add усули чақирилади. 

Add усули икки параметрга эга: 

1.  Янги  элемент  кўшилаётган  элемент.  Мисолда  ажратилган  элемент 

берилади (TreeView1.Selected). 

2. Янги элемент сарлавҳаси. 

Натижа  NewNode  ўзгарувчида  сақланади.  Қуйидаги  сатр  расмни 

ўзгартиради: 

if NewNode.Parent<>nil then 

NewNode.ImageIndex:=1; 

«Добавить элемент» тугмаси учун қуйидаги процедура ёзамиз.