Delphi программасынын ачык чөйрөсү ар кандай компоненттерди колдонууга негизделген. Компонент - бул касиеттерди, окуяларды жана процедураларды колдонуу менен белгилүү бир тапшырманы аткаруучу код. Компонентти түзүүдө, өзгөрүлмө маанилерди коюп, окуяларды иштетүүчүлөрдүн кодун ишке ашыруу керек. Программада колдонуу үчүн жаңы компонент долбоордун пакетине киргизилиши керек.
Ал зарыл
Delphi өнүгүү чөйрөсү
Нускамалар
1 кадам
Түзүү үчүн компоненттин түрүн тандаңыз. Бул Windows, графикалык пункт, башкаруу объектиси же визуалдык эмес компонент болушу мүмкүн. Ошондой эле, сиздин объект каалаган класстан мураска алат. Компонентти ишке ашыра турган функцияларды чечип алыңыз.
2-кадам
Delphi иштеп чыгуу чөйрөсүн баштаңыз. Колдонмонун негизги менюсунда Компонент, Жаңы Компонент пункттарын ачыңыз. Пайда болгон диалог терезесинен Ancestor Type талаасында өзгөртүүнү каалаган компонент классын тандаңыз. Эгерде сиз мурасты колдонбосоңуз, Класстын аталышы талаасына жөн гана "Т" тамгасынан башталуучу жаңы компоненттин атын киргизиңиз. Палитра бетинин талаасына, орнотуудан кийин компонент өтмөгүнүн атын жазып, андан кийин Бирдик түзүү баскычын чыкылдатыңыз. Өнүгүү чөйрөсү жаңы компонент үчүн автоматтык түрдө шаблон жаратат. Түзүлгөн Паскаль кодунун мисалы:
MyBtn бирдиги;
интерфейс
колдонот
Windows, SysUtils, Messages, Classes, Controls, Graphics, Forms, StdCtrls, Dialogs;
түрү
TMyBtn = класс (TButton)
жеке
корголгон
коомдук
жарыяланган
аягы;
жол-жобосу Реестр;
ишке ашыруу
жол-жобосу Реестр;
баштоо
RegisterComponents ('MyComponents', [TMyBtn]);
аягы;
аягы.
Ошол эле учурда TButton баскычынын стандарттык классынын негизинде жаңы TMyBtn классы гана түзүлбөстөн, компонент палитрасында жаңы компонентти каттоонун жол-жобосу да баяндалган.
3-кадам
Жеке директивада компонентти түзүшүңүз керек болгон бардык талааларды, процедураларды жана функцияларды сүрөттөп берсеңиз, алар жашыруун статуска ээ болот. Талаанын атын ("F" тамгасы менен), анын түрүн көрсөтүңүз. Мисалы, FDatas: integer формасынын жазуусу бүтүн типтеги FDatas өзгөрмөсүн сүрөттөйт. Корголгон бөлүмдө, мисалы, клавиатурадан же чычкан баскычтарынан керектүү окуяларды иштеп чыгуучуларды тизмелеңиз. Андан тышкары, классты тукум кууп жатканда, стандарттык иш-чаранын ата-эне иштетүүчүсү менен дал келүү үчүн, жокко чыгаруучу ачкыч сөздү коюшуңуз керек. Мисалы, Кирүү жол-жобосу; жокко чыгаруу баскычты чычкандын басылышын камсыз кылат.
4-кадам
Колдонуучуга жеткиликтүү компоненттин функциялары жана жол-жоболору жалпыга жарыяланган жана жарыяланган директиваларда сүрөттөлгөн, мисалы, форманын жазуусу: TSysInfo. GetUser: string же касиет MachName: string. Акыркы директивада, менчик сөзүн колдонууда, объект инспекторунда боло турган касиеттерди көрсөтсөңүз болот.
5-кадам
Жарыяланган процедураларга жана функцияларга компоненттин иштеши үчүн чыныгы кодду жазыңыз. Үлгү иштетүүчү код:
MachName функциясы: сап;
var
p: бүтүн сан;
менен: PChar;
баштоо
c: = stralloc (p);
аягы;
аягы.
6-кадам
Компонентти сизге керек болгон долбоорго орнотуңуз. Delphi башкы менюсунан Компонент, Орнотуу Компонентин тандаңыз. Пайда болгон диалог терезесинде, өтмөктөрдүн бирин ачыңыз: Бар болгон топтомго, эгерде компонентти мурунку пакетке орнотууну кааласаңыз, же Жаңы Пакетке - жаңысына. ОК баскычын чыкылдатып, өтүнмөнүн пакеттин үстүнө жазуу өтүнүчүн ырастоо (зарыл болсо). Андан кийин жазылган компонент колдонууга даяр болот.
