Win 32 парағыныңастарлы бет жасаудыңPageControlжəнеTrackbar, RichEditкомпоненттері. ИерархиялықмəліметтердіағаштүріндешығарудыңTreeViewкомпоненті. WebBrowserкомпонетіменбайланыс
жүктеу/скачать 155,02 Kb.
|
15a2d939-3824-4627-93ed-5a678f50bf36 (2)
- Бұл бет үшін навигация:
- 43- сурет. TreeView
- NewSubItem
| сурет.
сурет. Шешуі:procedure TForm1.N2Click(Sender: TObject); begin RichEdit1.CutToClipboard; end; procedure TForm1.N3Click(Sender: TObject); begin RichEdit1.CopyToClipboard; end; procedure TForm1.N4Click(Sender: TObject); begin RichEdit1.PasteFromClipboard; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin RichEdit1.SelAttributes.Style:=[fsBold] end; procedure TForm1.BitBtn5Click(Sender: TObject); begin RichEdit1.SelAttributes.Style:=[fsItalic] end; procedure TForm1.BitBtn6Click(Sender: TObject); begin RichEdit1.SelAttributes.Style:=[fsUnderLine] end; procedure TForm1.BitBtn1Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment:=taLeftJustify; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment:=taCenter; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment:=taRightJustify; end; TreeView- ағаштүріндегіиерархиялықмəліметтердішығарукомпонентіболыптабылады. Оданқолданушыөзінеқажетмəліметтердітаңдайалады. Бұлкомпоненттіңнегізгіқасиеті- Items. Олиндекстелгентүйіндертізімінентұрады. ƏрбіртүйінTTreeNodesтиптіобъектболыптабылады. ТүйіндерTreeViewкомпонентінде 2 ретшертунемесеItems қасиетініңоңжағындағыүшнүктелібатырманышертуарқылыжасалады. Нəтижедетөмендегісуреттегідейтүйінжасаутерезесіэкранғашығады. 43- сурет. TreeViewкомпонентініңтүйінжасаутерезесі.Бұлтерезекелесібатырмалардантұрады: NewItem (Жаңатүйін)- жаңатүйінжасауғамүмкіндікбереді. NewSubItem (Жаңаішкітүйін)- ішкітүйінжасауүшін. Delete(Жою)- таңдалғантүйіндіжою. Text-түйінтақырыбыныңмəтіні. Мысал1:Төмендегісуретте2 негізгітүйіннентұратынTreeViewкомпонентікөрсетілген. Əртүйін 3 ішкітүйіннентұрады. ТүйінгесəйкесмəтіндіпрограммалықжолменLabel1компонентінешығаруTextқасиетіарқылыжүзегеасырылады. Мысал2:Label1. caption:= TreeView1.Items.Item[1].text; Нəтижеде Label1 компонентіне “MS Word” сөзішығады. Кез- келгентаңдалғанмəнLabel1-ге шығуүшін команда былайшажазылады: Label1. caption:= TreeView1. Selected.text; ТаңдалғантүйінгесəйкесиндекстіАbsoluteIndexқасиетібереді. Түйіндер 0- денбастапбүтінсанменнөмірленеді. Мысал3:Жоғарыдағы 1- мысалдажасалғанқосымшадантүйіндердішерткендеоларғасəйкесжазылғантүсіндірмемəтіндермəтіндікредакторгешығатынтүйіндеркодынжазыңдар. Олүшінəртүйінгесəйкесмəтіндік файл алдын-ала MS Wordмəтіндікредакторындажасалып, rtfформаттасақталуыкерек. Себебі, RichEditкомпонентіrtfформаттағыфайлдығанаоқиалады. 45- сурет. procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin case treeView1.Selected.AbsoluteIndex of 1: RichEdit1.lines.LoadFromFile('c:\Word.rtf'); 2: RichEdit1.lines.LoadFromFile('c:\Excel.rtf'); 3: RichEdit1.lines.LoadFromFile('c:\Access.rtf'); end; end; Əдебиеттер: [1]-[7], қ[1]-[5]жүктеу/скачать 155,02 Kb. Достарыңызбен бөлісу:
|