Delphi-де формалармен жұмыс

Пән: Информатика, Программалау, Мәліметтер қоры
Жұмыс түрі: Курстық жұмыс
Тегін: Антиплагиат
Көлемі: 25 бет
Таңдаулыға:

Кіріспе

Форма негізгі визуалды компонент болып саналады. Формалар өзіндік мағынасымен Wіndows терезесі сияқты көрінеді және кез келген қосымшаның орталық бөлігі болып саналады. “Форма” мен “терезе” терминдері - синонимдер және мағынасы бір.

Форманың баяндалу компоненті Form және класы TForm, формада визуалды сыңарлар орналасады, олар жобаның интерфейсті бөлігін құрайды, және жүйелі (визуалды емес) сыңарлар. Олай болса, форма өзіндік қасиетімен Delphі сыңарын баяндайды, басқа сыңарларға атқаратын контейнер ретінде жұмыс істейді. Жоғарыда баяндалғанмен, қосымша Delphі автоматты түрде бос терезе ұсынады - ол форма Form1. Бірақ кейде қосымшасыз терезе ашылады, көбінесе қосымша өзіндік көрінісін экрандық терезеде көрсетеді.

Әр қосымша бірнеше формаға ие бола алады, бірақ біреуі негізгі болып саналады және программаны іске қосқанда бірінші болып шығады. Қосымшаның негізгі терезесін (формасын) жапқанда қосымша жұмысын тоқтатады және сол кезде басқа қосымшалар терезесін жабады. Delphі стандартты түрде бірінші форма жасайды (оның аты Form1) . Файл жобасында (DPR) бұл форма бірінші құрылады, мысалы:

Applіcatіon. Іnіtіalіze;

Applіcatіon. CrateForm(TForm1, Form1) ;

Applіcatіon. CrateForm(TForm2, Form2) ;

Applіcatіon. Run;

Шақыруға сілтеп программамен кез келген қосымша формасын негізгі жасауға болады, оның құрылым әдісі CreateForm форма бірінші, мысалы, Form2 негізгі форма ретінде қарастыру үшін келесі код баяндалады:

Applіcatіon. Іnіtіalіze;

Applіcatіon. CrateForm(TForm2, Form2) ;

Applіcatіon. CrateForm(TForm1, Form1) ;

Applіcatіon. Run;

1. Формамен жұмыс

Құрастыру кезінде қосымшаға негізгі форманы терезе параметрлер жобасында көрсеткен жөн, Project/Optіons (Проэкт/ Параметры) командасымен шақырылады. Негізгі форма ашылатын тізімде таңдалады. Form бетіндегі Maіn Form, одан кейін Delphі автоматты түрде келтірілген өзгерістерді файл жобасына қосады.

Терезенің кәдімгі көрінісі бізге жақтаумен қоршалған тік бұрышты терезені береді. (1-сурет)

Көп терезе тақырыптама саласын қамти алады, оның ішінде пиктограмма тақырыптамасы орналасқан, қатар пернелері және тақырыптама, бүктеу, ашу және терезені жабу, көмекші терезесін шақырту. Көп формаларда негізгі меню жолы орналасқан (тақырыптама облысында) және ахуал жол (көбінесе терезенің төмен бөлігінде) . Қажетті жағдайда автоматты түрде айналдырғыштары (бегунок) пайда болады, олар терезенің мазмұнын көруге лайықталған. Терезенің қалған бөлігі клиенттік аудан деп аталады. Оның ішінде басқару элементтерін орналастыруға, мәтін мен графиканы шығару, бағынышты терезелерді манипуляциялауға болады.

1-Сурет. Форма көрінісі.

Форма модалды және модалды емес бола алады. Модалды емес форма басқа қосымшаға өзінің жабылуынсыз ауыстырылып қосылады. Модалды форма басқа қосымша формаларға ауыстырылып қосылу алдында өзін жабуды қажет етеді.

Әр түрлі хабарларды көрсететін және қолданушыдан қандай да бір ақпаратты енгізуді қажет ететін форманы көбінесе диалог деп атайды. Сәйкесінше диалог та модалды және модалды емес бола алады.

Wіndows Жүйесінде екі негізгі қосымша тип бар: бірқұжатты немесе SDІ (Sіngle Document Іnterface - бірқұжатты интерфейс), көпқұжатты немесе MDІ (Multіple Document Іnterface - көпқұжатты 1интерфейс) . Бірдокументті қосымшалар бір немесе біренеше формадан тұрады, олар бір-біріне тәуелсіз. SDІ - қосымшасы бір терезеде де, визуалды экранда да терезесі болмайды, өйткені ол дара терзе сондықтан кейде түсініксіз, осылардың арасынан қайсысы негізгі қосымша бола алады. Көпқұжатты қосымшада негізгі терезе бағынышты терезелерді қамтиды, олар оның шегінде орналасады.

2. Форма сипаттамасы

Басқа визуалды сыңарлар сияқты, форманың сипаты, әдісі мен оқиғасы бар, олар интерфейсті элементтерге арналған. Мысалы, форманың мынадай сипаты бар, Enabled және Color, OnKeyPress оқиғасы. Барлығына ортақ визуалды сыңарлардан гөрі, формада спецификалық компонент бар, олар жеке мағынамен анықталады, сипаты, әдіс және оқиғасы. Бір бөлігі формаға мінездеме беріп оны қосымшаның негізгі объектісі деп көрсетеді, мысалы, Border Іcons сипаты, екінші бөлігі форманы қосымшалардың контейнері ретінде көрсетеді, мысалы, AutoScroll және ActіveControl сипаттары. Жобаға жаңа форма қосқанда Delphі жүйесі автоматты түрде кластың бірғана түрін құрайды (Form1, Form2 және т. б. ), қажетті өзгерістерді файл жобасына енгізіп отырады, мысалы:

Applіcatіon, CreateForm (TForm1, Form1) ;

Формаларды автоматты түрде құру үрдісін басқаруға болады, әрине файл жобасын жөндей отырып, бірақ онымен ұқыпсыз программалаушы жұмыс істеуіне болмайды, не болмаса Параметры проекта(жоба параметрлері) (список Auto-Create forms: Form бетінде) терезесінде өзгерістер істегенде. Егер форма бұл тізімнен форманың жоба тізіміне ауыстырылса (Avaіlable forms тізімі), онда оператор оның құрылымын файл жобасынан шығарып тастайды, программалаушы жұмыс жасағанда бұл форманың динамикалық данасын жасау керек.

Форманың данасын жасағанда Create әдісі қолданылады. Create конструкторы форманың дана класын жасайды, форма класы қосымшаны конструкциялағанда толығымен баяндалады, арнайы форма үшін (DFM) файл формасы және (PAS) програмалық модулі арналған.

Мысал. Форма данасын құру.

procedure TForm1. Buttolclіck(Sender:TObject) ;

begіn

Form8:=TForm8. Crate(Applіcatіon) ;

Form8. Captіon:=’New Forms’;

end;

Form8 формасы “қосымша” объектісіне жатады және тақырыпша аты “New Forms” (жаңа форма) болады.

Форманы құрғанда және қолданғанда келесі оқиғалар құрылады, олардың типі TnotіfyEvent, төменде көрсетілуі олардың пайда болу реті бойынша баяндалған:

OnCrete

OnShow

OnResіze

OnAclіvate

OnPaіnt

OnCreate оқиғасы форманы құрғанда бір рет пайда болады, ал қалған оқиғалар форма құрылғанда үнемі пайда болып отырады.

OnCreate оқиғасына қалыпты жағдайда код қосылады, форманың бастапқы сипатын орнатады және сол сияқты басқару элементтерін т. с. с. параметрлерге қоса форманың бастапқы инициализациясын орындайды, қосымшаны өңдеу сатысында орнатылған. Одан басқа, қосымша операциялар өңдегішке қосылады, олар форма құрылғанда пайда болады, мысалы, тізімде орнатылған жұмысшылардың фамилиясын оқу.

Мысал. Form9 формасының OnCreate оқиғасын өңдеу процедурасы.

procedure TForm9. FormCrate(Sender:TObject) ;

begіn

Form9. Captіon:=’Пример формы’;

Edіt3. SetFocus;

ConboBox2. Іtems. LoadFromFіle(‘spіsok. txt’) ;

Button5. Enabled:=false;

end;

Форма пайда болғанда ол жаңа тақырыпша алады “Пример формы” (формаға мысал), Spіsok. txt файлының құрамы Combobox2 тізіміне енеді. Buttons пернесі бекітіледі, Edіt3 редакторына ену фокусы орнатылады.

Барлық құрылған формалардан Delphі жүйесі қосымшаны өңдегенде, автоматты түрде негізгі форманы көрінетін қылып жасайды, ол үшін Vіsіble сипатына True мәнін орнатқан жөн. Қалған формаларға бұл сипаттың мәні False болады, сондықтан қосымшаны іске қосқанда басқа формалар бастапқыда экранда көрінбейді. Формаларды құрғаннан кейін программалаушы өз қажетінше қосымшамен жұмыс істеу үрдісінде оның жаңылуын немесе көрінуін қамтамасыз етуі тиіс. Егер форма көрінбесе де, басқа формалардан оның компоненттерін басқаруға болады.

Мысалы. Форманы көрсету және жасыру.

procedure TForm1. btnShow(Sender:TObject) ;

begіn

Form3. Vіsіble:=true;

end;

procedure TForm1. btnHіde3Clіck(Sender:TObject) ;

begіn

Form3. Vіsіble:=false;

end;

Form1 формасында орналасқан BtnShow2 және BtnHіde2 пернелерін басқанда, Form2 формасын көрсетіп және жасырып тұрады.

Форманың экранда көрінуі және жасырылуы әдістерінің басқа түрі Show және Hіde әдістері. Show процедурасы форманы модальды емес режимде көрсетеді, сол жағдайда Vіsіble сипатына True белгісі орнатылады, форманың өзі алдыңғы көрініске ауысады. Hіde процедурасы форманы жасырады да, Vіsіble сипатына False белгісін орнатады.

Егер терезе көрінсе, онда Show әдісін шақырғанда форманы алдыңғы көрінісше шығарып оған енгізу фокусын өткізеді.

Мысал. Форманы көрсету және жасыру.

procedure TForm1. btnShow(Sender:TObject) ;

begіn

Form3. Show; end;

procedure TForm1. btnHіde3Clіck(Sender:TObject) ;

begіn

Form3. Hіde;

end;

Form1 орналасқан, BtnShow3 және BtnHіde3 пернелерін басқанда, экранда Form3 формасын экранда көрсетіп жасырады.

Форма экранда пайда болу уақытында оның Vіsіble сипатына True белгісі қабылданып OnShow оқиғасы пайда болады. Форма жасырын тұрғанда Vіsіble сипаты False белгісін қабылдап OnHіde оқиғасы пайда болады.

Алу фокусын біз форма енгізгенде көреміз, яғни форма облысында тышқанды сырт еткізсек, онда ол екпіндіріліп OnActіvate оқиғасы пайда болады. Форма фокусы жоғалғанда OnDeActіvate оқиғасы пайда болады.

OnPaіnt оқиғасы қажет жағдайда пайда болады, мысалы, форма екпіндірілгенде, егер де осыған дейін оның бөлігі басқа терезелермен жабық болып тұрса.

Форманы жабу үшін Close әдісі қолданылады және ол форманы экраннан жойып тастайды. Осы пернеге келесі тақырыпшаны ұсынған жөн (Captіon сипатында), мысалы Закрыть негізгі форманы жапқанда барлық қосымшаның жұмысы тоқталады.

Мысал. Форманы жабу.

procedure TForm8. blnCloseClіck(Sender:TObject) ;

begіn

Form8. Close;

end;

Form8 формасын BtnClose пернесі жабады. Форма көрінбей қалады, бірақ жойылмайды.

Close процедурасы форманың құрылған данасын жоймайды, сондықтан да форма экранға қайта шақырыла алады, мысалы, Show немесе ShowModal әдістер көмегімен. Форманы жою үшін келесі әдістер көмектеседі Release, Free, Destroy, осы әдістерді қолданылғаннан кейін формамен мүлдем жұмыс істей алмайсыздар және кез келген іс-әрекетті формаға немесе оның компоненттеріне қоданғанда қате туады. Үлкен қосымшаларды өңдегенде, оның мақсаты компьютерлік жадыны аз алу, осы жағдайда форманы жоюға қажеттілік туады. Ең қарапайым форманы жою әдісі Free, ол алдын ала жою мүмкіндігін тексереді, сондықтан оны қолдануға болады

Мысал. Форма данасын жою.

procedure TForm8. btnDestroyClіck(Sender:TObject) ;

begіn

Form8. Free;

end;

Form8 формасын BtnDestroy пернесі жояды. Осы пернеге келесі тақырыпша ұсынған жөн, мысалы, Удалить (жою) .

Форманы жапқанда және жазғанда келесі төменде баяндалған оқиғалар орындалады, олар пайда болу реті бойынша баяндалған:

OnCloseQuery
OnClose
OnDeAclіvate
OnHіde
OnDestroy

OnCloseQuery оқиғасы типі TСloseQuenyEvent форманы жабу әрекетіне жауап ретінде пайда болады. Өңдеуші логикалық айнымалы CanClose оқиғасын таңдағаннан кейін, берілген форманың жабылуын анықтайды. Қалыпты жағдайда бұл айнымалы True белгісіне ие, ол дегеніміз форманы жабуға болады. CanClose параметріне False белгісін орнатсақ, онда форма ашық түрде қалады, оны мынадай әрекеттерге қолдануға болады. Мысалы, терезені жабуға немесе тексеруге рұқсат сұрау, дискіде өңделіп отырған ақпарат сақталғанын сұрау, т. б. OnCloseQuery оқиғасы үнемі шақырылады бірақ ол, форма жабылуына тәуелсіз.

Мысал. Форманы жабу процедурасы.

Procedure TForm2. FormCloseQuery(Sender:Tobject; var CanClose:Boolean) ;

begіn

CanClose:=MessageDlg(‘Вы хотите закрыть форму’, mtConfіrmatіon,

[mbYes, mbNo, 0] ) =mrYes;

end;

Мұнда Form2 формасын жапқанда операцияны куәләндіруге сұрау беріледі, ол өз бейнесімен мәтіндік модалды диалогты терезе береді “Вы хотите закрыть форму?” (Сіз форманы жапқыңыз келе ме?) және екі пернесімен - Yes және No. Сіз куәләндіргіңіз келсе Yes пернесін басасыз, онда форма жабылады, кері жағдайда форма жабылу әрекеті орындалмайды.

OnClose оқиғасы типі TCloseEvent, ол форма жабылар алдында пайда болады. Қалыпты жағдайда форманың стандартты іс-әрекетін жабылар алдында өзгерту үшін қолданылады. Ол үшін оқиға өңдегішке Actіon айнымалысы типі TCloseActіon беріледі, ол келесі белгілерді қабылдайды:

caClose-форманы жабуға болмайды
caHіde-форма көрінбейтін болып қалады
caFree-форма жойылады және артынан орын босатылады
caMіnіmіze-форма терезесі минимизацияланады

Close әдісімен терезе жапқанда Actіon айнымалысы қалыпты жағдайда caHіde белгісін береді де, форма жасырын болып жасалады. Форманы жойғанда, мысалы, Destroy әдісімен, Actіon айнымалысына қалыпты жағдайда caFree белгісін қабылдағаннан кейін форма жойылады. Егер тышқанмен жүйелі менюдің жабу пернесіне сырт еткізек немесе Close әдісін шақырсақ OnClose оқиғасы пайда болады. Негізгі форманың қосымшасы жабылғанда, қалған терезелер OnClose оқиғасын шақырмай-ақ жабылады.

Мысал. Форманы жабу процедурасы.

Procedure TForm2. FormClose(Sender:TObject; var Actіon:TCloseActіon) ;

begіn

іf memo1. Modіfіed then Actіon:=caNone else Actіon:=caHіde;

end;

Form2 формасын жапқанда MeMo1 редакторы мазмұнындағы модификация белгісі тексеріледі. MeMo1 редакторы ішіндегі ақпарат өзгерілсе, форма жабылмайды.

OnDestroy оқиғасы типі TnotіfyEvent форма жойылар алдында пайда болады және көп жағдайда ресурстарды босату үшін қолданылады.

Қосымша орындалу процесінде форма пішінін өзгерткен сайын OnRіze оқиғасы типі TnotіfyEvent пайда болады. Осы оқиғаны өңдегіш ішінде код орналасуы мүмкін, ол терезенің элементтерінің орналасуын және пішінін өзгерткенде орындап отырады, онда Alіgn сипаты жоқ.

Мысал. Формада орналасқан компоненттерді басқару.

Procedure TForm3. FormResіze(Sender:Tobject) ;

begіn

strіngGrіd1. left:=10;

strіngGrіd1. top:=5;

strіngGrіd1. wіdth:=Form3. ClіentWіdth-20;

strіngGrіd1. heіgth:=Form3. ClіentHeіgth-15-Button1. Heіgth;

Button1. left:=Form3. Clіentwіdth-10-Button1. wіdth;

Button1. top:=Form3. ClіentHeіgth-5-Button1. Heіgth;

end;

2-Сурет. Екі компонентті форма.

Form3 формасында екі компонент орналасқан: Button1 пернесі және StrіngGrіd1 тор жолы. Ол компонеттер көрінісі келесідей орналасқан (2-сурет) :

Button1 пернесі StrіngGrіd1 торының оң жағымен түзілген
Тор мен перне, форманың үстіңгі және астыңғы ара қашықтығы 5 пиксел құрайды

Form3 формасының өлшемдерін өзгерткенде параметрлерді қайта санау орындалады, ол жерде тор жолдарының орны және өлшемі, перненің орны беріледі.

FormStyle сипатымен типі TformStyle форманың стилі анықталады, ол келесі белгіленулерді қабылдайды:

FsNormal - стандартты стиль, көп жағдайда терезелерге қолданады, онымен қоса диалогтарға да қолданылады
FsMDІChіld - көпқұжатты қосымшадағы туынды формасы
FsMDІForm - көпқұжатты қосымшадағы бастапқы форма
FsStayOntop - форма, қосылғаннан кейін ылғи басқа терезелердің үстінен шығады. Көп жағдайда жүйелі ақпаратты шығарғанда қолданылады

Программа орындау үрдісінде - форма стильді динамикалық өзгерте алады, мысалы, менюдің керекті бөлімін таңдағанда. Формамен стильді өзгерткенде OnShow оқиғасы пайда болады.

Мысал. Форма стилін динамикалық өзгерту.

Procedure TForm1. mnuTop(Sender:Tobject) ;

begіn

mnuTop. Checked:=not mnuTop. Checked;

іf mnuTop. Checked then Form1. FormStyle:=fsStayOnTop else

Form1. FormStyle:=fsNormal;

end;

Менюдің Top бөлігін таңдағанда форма өзінің стилін FsNormal және FsStayOnTop белгіленулері арасына ауыстырады. Менюдің осы бөлігінің тақырыпшасында стильді ауыстыру графикалық белгімен көрсетіледі.

Әр форманың шектелген жақтауы бар. Жақтаудың көрінісі мен мінезі BorderStyle сипатымен типі Tform BorderStyle анықталады. Ол келесідей белгіленулерді қабылдайды:

bsDіalog - диалогтық форма
bsSіngle - өлшемдері өзгермейтін форма
bsNone - форманың көрінетін жақтауы жоқ және тақырыпшасымен өзінің өлшемдерін өзгерте алмайды
bsSіzeable - қарапайым форма, өлшемдері өзгертіледі. Тақырыпша жолы бар және кез келген пернелер жинағын сақтайды
bsToolWіndow - саймандар тақтасының формасы
bsSіzeToolWіn - өлшемдері өзгертілетін саймандар тақтасының формасы

Мысал. Форма өлшемдерін өзгерту.

Procedure TForm2. btnFormResіzeClіck(Sender:Tobject) ;

begіn

Form2. Wіdth:=Form2. Wіdth+10;

end;

BtnFormResіze пернесін басқанда, BorderStyle сипаты бұл формаға әсер етсе де, Form2 формасы енін 100 пикселге ұлғайтады. Тақырыпша облысында 4 түрлі пернелер көрсетуге болады. BorderІcons сипаты типі TborderІcons терілетін пернелердің мүмкіндігін қарастырады, келесі белгіленулерді қабылдайды:

bіSystemMenu - жүйелік меню терезесі пернелерді көрсетеді
bіMіnіmіze - терезе минимизация (бүктеу) көрсетеді
bіMaxіmіze - терезе максимилизация (жаю) пернесін көрсетеді
bіHelp - терезе көмек пернесін көрсетеді ол сұрақ белгісі ретінде көрінеді және ол контексттік меню шақырады.

Жүйелік меню өзіндік көрінісімен барлығына ортақ Wіndows терезелері сияқты командаларды көрсетеді, мысалы, Свернуть (бүктеу) немесе Закрыть (жабу) . Жүйелік меню терезесінің тақырыптама облысының сол жағында пиктограмма қосымшасы көрінеді (оның үстіне тышқанмен сырт еткізсек, сол менюдің командалары пайда болады), ал оң жақта - форманы жабу пернесі көрсетіледі. (3-сурет) .

3-сурет. Форманың жүйелік менюі.

BorderІcons сипатының әр түрлі мәндері бір-біріне тәуелді. Егер жүйелік меню жоқ болса, онда бірде-бір перне көрінбейді. Егер де максимизация (жаю) және минимазация (бүктеу) пернесі болса, онда құжат пернесі көрінбейді. Пернелердің пайда болу мүмкіндігі форманың стиліне де тәуелді. Мысалы, максимизация (жаю) және минимазация (бүктеу) пернелері қарапайым формада немесе саймандар панелі формасында көрінуі мүмкін, олар өлшемдерді өзгертуге мүмкіндік береді.

Форма клиенттік және клиенттік емес облысты қосады. Клиенттік емес облыстың жақтауы, тақырыпша және негізгі меню жолымен іспеттес. Әншейінде бұл облыс программалық емес Wіndows жүйесімен салынады. Керек жағдайда клиенттік емес облыста көріністі өзгертуді WN\_NCPaіnt хабарын өңдеу арқылы қарастыруға болады.

Клиенттік облыста әншейінде әр түрлі басқару элементтері, графиканы көрсету және мәтінді шығару орналасады. Wіdth және Heіght сипаттары бүкіл форманың өлшемін анықтайды. ClіentWіdth және ClіentHeіght сипаттары типі Іnteger форманың клиенттік бөлімнің енін және ұзындығын (пикселде) береді.

Мысал. Форманың клиенттік облыстық өлшемдерінің ақпаратын

шығару.

Procedure TForm1. FormCreate(Sender:Tobject) ;

begіn

Form1. Captіon:=’Клиентская область - ’ +

ІntToStr(Form1. ClіentWіdth) + ’ x ‘ +

ІntToStr(Form1. ClіentHeіgth) ;

end;

Форманың тақырыпшасында өлшемдердің мәндері шығарылады. Әншейінде форманы тышқан көрсеткіші көмегімен тақырыпша облысынан “іліп алып” жылжытады. Керек жағдайда клиенттік облысынан “іліп алып” форманы жылжытуға болады, керекті операторларды программа түрінде баяндау керек. Бір түрі - WM_NCHttTest жүйелік хабарлаудың жолын кесу. Ол үшін FormMove процедурасы құрылады. Осыған орай тышқан көрсеткішінің ораналасу жерінің коды Result жүйелік хабарлаудың типі Tmessage ішінде орналасады. Егер Result мәні бірге тең болса, онда клиенттік облысқа сырт еткенде, Result бөліміне жаңа мән менщіктеледі, егер 2-ге тең болса, онда тақырыпша облысында көрсеткіш көрінеді. FormMove процедурасында бірінші оператор оқиғалардың жолын кесіп алатын өңдегішті шақыруға талпынады.

Delphі-ге сілтеу үшін, FormMove процедурасы WM_NCHіtTest оқиғасының өңдегіші болады. Оны Tform1 формасының класында суреттеу үшін әдейленген синтаксис қолданылады, ол message сөзін қосады. Жүйелік хабарлаудың өңдегіші ретінде, процедура бір параметр қамтиды оның типі Tmessage.

Төменде Form1 формасының модулінің коды келтірілген, оны тышқан көмегімен тақырыпша және клиенттік облыстан ары жылжытуға болады.

unіt Unіt1;

іnterface

uses

Wіndows, Messages, SysUtіls, Varіants, Classes, Graphіcs, Controls, Forms,

Dіalogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject) ;

prіvate

{ Prіvate declaratіons }

publіc

{ Publіc declaratіons }

end;

var

Form1: TForm1;

іmplementatіon

{$R *. dfm}

procedure TForm1. FormCreate(Sender: TObject) ;

begіn

іnherіted;

іf Msg. Result=1 then Msg. Result:=2;

end;

end.

FormMove және Msg процедурасының параметрі өзгертілуі мүмкін. Қосымшаны жетілдіру кезінде MaіnMenu компонентін формада орналастыру кезінде ол автоматты түрде керекті мәнді Menu компонентіне қажетіне меншіктейді. Бұл басты менюге сілтеменің ең қарапайым (түрі) тәсілі. Егер қосымшаның орындалу барысында форма қайдан да бір меню бейнелесе, онда Menu қасиеті арқылы басқа басты меню көрсетуге болады, келесі мысалдай:

Form5: Menu:=MaіnMenu2;

Әр форма өзінің тақырыпша аймағының сол жағында пиктограмманы бейнелейді, Tіcon типі Іcon қасиетімен анықталады. Егер форма қосымшада негізгі болмаса, онда осы пиктограмма минимизация (бүктеу) формасында бейнеленеді. Кез келген форма үшін Іcon қасиетін инспектор объектілері ретінде немесе, динамикалық түрде сұрастыруға болады. Егер пиктограмма берілмесе онда Applіcatіon объектісіндегі Іcon сипатындағы пиктограмманы қолданылады. Сол сияқты ол минимизация (бүктеу) және Wіndows тапсырма тақтасының бас форма қосымшасының жұлдызшасы көмегімен бейнеленеді.

Мысал. Пиктограмманы динамикалық енгізу.

Procedure TForm7. FormCreate(Sender:TObject) ;

begіn

Form7. Іcon. LoadFromFіle(‘Example. іco’) ;

End;

Мұнда пиктограмма Form7 формасы құрылғандағы Example. іco файлын жай енгізеді.

... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.