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

procedure TTreeViewForm.FormShow(Sender: TObject); 

begin 

if FileExists(ExtractFilePath(Application.ExeName)+'tree.dat') then 

TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.dat'); 

end; 

 

Олдин  FileExists  функцияси  ёрдамида  файл  мавжудлиги  текширилади. 

Агар мавжуд бўлса LoadFromFile усули чақирилади. 

 

 

Элементлар руйхати (TListView) 

WIN  32  саҳифасига  тегишли  кейинги  компонент  Windows  «Проводник» 

ойнасининг ўнг томонига ўхшаган рўйхатни акс эттиришга имкон беради. 

 

Бу компонентадан фойдаланишни амалий мисолда кўриб чиқамиз. 

 

Содда файл менеджери 

---

Лойиҳа  формасига  битта  буйруқ  тугмаси,  киритиш  қатори  ва  элементлар 

рўйхатини ўрнатинг. 

 

Дастур uses бўлимига shellapi модулини кўшинг. 

Форманинг OnCreate ҳодисаси учун қуйидаги процедура ёзинг: