CaptionStr: NewNode:TTreenode; begin CaptionStr:=”; if not InputQuery('BBO,n h m ch h ', 'BBe^HTe 3ar0Ji0B0K
Agar OK tugmasi bosilmagan bo‘lsa protseduradan chiqiladi:
if not InputQuery(...) then exit; Keyingi qator yangi element qo‘shadi:
NewNode:=TreeViewl.Items.Add(TreeViewl.Selected, CaptionStr); TreeViewl komponentasining Items xossasida hamma elementlar
204
Bu protseduraning oldingisidan farqi AddChild usuli qollan-
ganligidir. Bu usulda avlod element qo‘shadi. Qo‘shilgan element
ajdodi joriy elementdir.
'Y^ajiHTt' tugmasi uchun protsedura:
if TreeViewl.SelectedOnil then TreeViewl .Items.Delete(TreeViewl.Selected); Oldiniga ajratilgan element daraxtda mavjudligi tekshiriladi:
",
205
OnClose hodisasi uchun quyidagi protsedurani yozamiz:
Procedure TTreeViewForm.FormClose(Sender: TObject; var Action: TCloseAction); begin TreeViewl.SaveToFile(ExtractFilePath(Application.ExeName) +'tree.dat'); end; Daraxtni saqlash uchun SaveToFile usuli chaqiriladi. To‘la yolni
ko‘rsatish uchun quyidagi konstruksiyadan foydalaniladi:
ExtractFilePath(Application.ExeName)+ ' tree.dat'
Application.ExeName —fayl nomi.
ExtractFilePath — faylga yo‘l.
Endi saqlangan ma’lumotlami yuklash uchun OnShow hodisasini
qayta ishlovchi quyidagi protsedurani kiritamiz:
