delphi да объектларнинг хусусиятлари

DOC 118,5 КБ Бесплатная загрузка

Предварительный просмотр (5 стр.)

Прокрутите вниз 👇

1404122080_50724.doc delphiда объектларнинг хусусиятлари delphi да объектларнинг хусусиятлари режа: 1. умумий тушунчалар. 2. визуал компонентлар хусусиятларини дастур бажарилиш вақтида бошқариш. 3. shapedem1 дастури. 4. shapedem2 дастури. умумий тушунчалар. хусусиятлар объектнинг муҳим атрибутаси эканлигига диққатингизни қаратгандирсиз. фойдаланувчи (дастурчи) учун хусусият бу бирор тузилишнинг қиймат сақловчи майдонидир. лекин, бу оддий майдон қиймати ўзгариши билан компонентнинг ташқи кўриниши бутунлай ўзгаради, чунки, хусусиятлар ўзида объектнинг шу майдонга ёзиш ва ўқиш ҳолатлари инкапсуляциясига боғлиқ бўлади. хусусиятлар икки мақсадда хизмат қилади. биринчидан, улар форма ёки компонентнинг ташқи кўринишини аниқлайди. иккинчидан эса хусусиятлар форма ёки компонентнинг ҳаракатини белгилайди. хусусиятлар бир нечта типларга бўлиш мумкин. · оддий хусусиятлар – буларнниг қийматлари сонлар ёки сатлар бўлади. масалан, left ва top хусусиятлари форма ёки компонентнинг юқориги чапки бурчаги координаталарини аниқловчи бутун сонларни сақлайди. caption ва name хусусиятлари форма ёки компонентнинг сарлавҳаси ва номини билдирувчи сатрларни сақлайди. · санаб ўтиладиган хусусиятлар – булар мавжуд рўйхатдаги қийматлардан бирини қабул қила оладиган хусусиятларир. …

олади. бунинг учун шу хусусият майдонининг ўнг томонидаги уч нуқтали кичик тугмачани босиш кифоя. delphiда компонентлар хусусиятларини лоиҳалаш вақтида (design time) ҳам, дастур бажарилаш вақтида (run time) ҳам ўзгартириш оддий. лоиҳалаш вақтида хусусиятларни ўзгартириш формалар дизайнери (forms designer) ёки, сизга маълум объектлар инспекторининг “properties” саҳифаси ёрдамида бажарилади. масалан, тугманинг height (баландлиги) ва width (кенглиги) хусуиятларини ўзгартириш учун, унинг формадаги тасвирининг бир бурчагидан сичқонча ёрдамида тортиб, керакли ўлчамларга эришиш мумкин. худди шу натижага object inspectorнинг height ва width хусусиятларни қийматларини ўзгартириб ҳам эришиш мумкин. визуал компонентлар хусусиятларини дастур бажарилиш вақтида бошқариш дастур бажарилиш вақтида компонентлар хусусиятлари қийматининг барча ўзгаришлари бажариладиган иш коди тўлиқ паскаль тилида ёзилишини талаб қилади. дастур бажарилиш вақтида object inspectorдан фойдаланиш мумкин эмас. лекин, компонентлар хусусиятларига дастурий йўл билан мурожаат қилиш анча қулай. бирор хусусиятнинг қийматини ўзгартириш учун сиз қуйидагига ўхшаш код ёзишингиз кифоя: mycomponent.width := 35; бу сатр компонентнинг кенглиги widthни 35 қийматга ўрнатади. агар бундан олдин …

lication.createform(tform1, form1); application.run; end. бизнинг scrollbarлар мисолимизда экраннинг ўртасидаги тасвирнинг ўлчамларини ўзгартириш учун ишлатилади. тасвирнинг янги кўринишини танлаш учун ўзида тасвирлар номини сақловчи (combobox) дан, тасвир ёки форма рангини ўзгартириш учун стандарт ранг танлаш мулоқот ойнаси ва мос тугмалардан фойдаланамиз. форма рангини ўзгартириш учун dialogs саҳифасидан colordialog объектини формага ўрнатинг. шунингдек, формага оддий тугма buttonни ташлаб қулайлик учун унинг caption хусуиятидаги ёзувни “форма ранги”га ва name хусуиятидаги ёзувни “formcolor”га алмаштиринг. шу тугмага сичқончани икки марта чиқиллатсак, қуйидаги кўринишга эга бўлган дастур матни чиқарилади: procedure tform1.formcolorclick(sender: tobject); begin end; энди биз оддий кодларни киритамиз: procedure tform1.formcolorclick(sender: tobject); begin if colordialog1.execute then form1.color := colordialog1.color; end; бу код дастур бажарилиш вақтида “форма ранги” тугмаси босилгач, рангни танлаш мулоқот ойнасини чақиради. агар сиз бу мулоқот ойнасида ok тугмасини боссангиз қуйидаги сатр бажарилади: form1.color:=colordialog1.color; бу код форма(form1)нинг ранги (color)ни colordialog1 мулоқот ойнасида танлинган рангга ўрнатади. тасвир рангини ўзгартириш учун ҳам худди шундай ишлар бажарилади. …

ange ҳолатига дастур ёзиш учун сичқон тугмасини босамиз ва муҳаррирда қуйидагича код киритамиз: procedure tform1.scrollbar1change(sender: tobject); begin shape1.width := scrollbar1.position * 3; end; procedure tform1.scrollbar2change(sender: tobject); begin shape1.height := scrollbar2.position * 2; end; энди, формадаги тасвирнинг кўринишини ўзгартириш масаласини кўриб ўтамиз. формага combobox объектини ташлаймиз ва унинг items хусусиятига сичқонни чиқиллатиб, string list editor муҳарририни чақирамиз. 20-расм. формадаги combobox объектининг items хусусияти ёрдамида чақирилувчи ойна бу муҳарирда қуйидаги сатрларни киритамиз (stcircle, stellipse, strectangle, stroundrect, stroundsquare, stsquare). сўнгра формада combobox1 объектини танлаб, объектлар инспекторининг “events” саҳифасидаги onclick хусусиятига сичқон тугмасини икки марта босиб, дастур матни муҳаррири ойнасига ўтамиз. у ерда қуйидаги ёзув бўлади: procedure tform1.combobox1click(sender: tobject); begin end; энди биз ўз кодимизни қўшиб, бажариладиган ишни кўрсатамиз: procedure tform1.combobox1click(sender: tobject); begin shape1.shape := tshapetype(combobox1.itemindex); end; бу сатрдаги код shape1 компонентининг shape хусусиятини фойдаланувчи рўйхатдан танлаган кўринишга ўрнатади. энди сиз дастурни юклаб, унинг имкониятларидан фойдаланишингиз мумкин. shapedem2 дастури энди фойдаланувчи форма ўлчамларини ўзгартириб …

$trls; type tform1 = class(tform) shape1: tshape; colordialog1: tcolordialog; scrollbar1: tscrollbar; scrollbar2: tscrollbar; mainmenu1: tmainmenu; shapes1: tmenuitem; shapecolor1: tmenuitem; formcolor1: tmenuitem; shapes2: tmenuitem; rectangle1: tmenuitem; square1: tmenuitem; roundrect1: tmenuitem; roundsquare1: tmenuitem; ellipes1: tmenuitem; circle1: tmenuitem; exit1: tmenuitem; procedure newshapeclick(sender: tobject); procedure shapecolorclick(sender: tobject); procedure formcolorclick(sender: tobject); procedure scrollbar2change(sender: tobject); procedure scrollbar1change(sender: tobject); procedure formresize(sender: tobject); procedure exit1click(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; implementation {$r *.dfm} procedure tform1.newshapeclick(sender: tobject); begin shape1.shape := tshapetype((sender as tmenuitem).tag); end; procedure tform1.shapecolorclick(sender: tobject); begin if colordialog1.execute then shape1.brush.color := colordialog1.color; end; procedure tform1.formcolorclick(sender: tobject); begin if colordialog1.execute then form1.color := colordialog1.color; end; procedure tform1.scrollbar2change(sender: tobject); begin shape1.height := scrollbar2.position; end; procedure tform1.scrollbar1change(sender: tobject); begin shape1.width := scrollbar1.position; end; procedure tform1.formresize(sender: tobject); var menu, caption, frame: integer; begin caption := getsystemmetrics(sm_cycaption); frame := getsystemmetrics(sm_cxframe) * 2; menu := getsystemmetrics(sm_cymenu); scrollbar1.max := width; scrollbar2.max := height; scrollbar2.left …$

Хотите читать дальше?

Скачайте полный файл бесплатно через Telegram.

Скачать полный файл

О "delphi да объектларнинг хусусиятлари"

1404122080_50724.doc delphiда объектларнинг хусусиятлари delphi да объектларнинг хусусиятлари режа: 1. умумий тушунчалар. 2. визуал компонентлар хусусиятларини дастур бажарилиш вақтида бошқариш. 3. shapedem1 дастури. 4. shapedem2 дастури. умумий тушунчалар. хусусиятлар объектнинг муҳим атрибутаси эканлигига диққатингизни қаратгандирсиз. фойдаланувчи (дастурчи) учун хусусият бу бирор тузилишнинг қиймат сақловчи майдонидир. лекин, бу оддий майдон қиймати ўзгариши билан компонентнинг ташқи кўриниши бутунлай ўзгаради, чунки, хусусиятлар ўзида объектнинг шу майдонга ёзиш ва ўқиш ҳолатлари инкапсуляциясига боғлиқ бўлади. хусусиятлар икки мақсадда хизмат қилади. биринчидан, улар форма ёки компонентнинг ташқи кўринишини аниқлайди. иккинчидан эса хусусиятлар форма ёки компонентнинг ҳаракатини белги...

Формат DOC, 118,5 КБ. Чтобы скачать "delphi да объектларнинг хусусиятлари", нажмите кнопку Telegram слева.

Теги: delphi да объектларнинг хусусия… DOC Бесплатная загрузка Telegram