ТЕРЕЗЕЛІК ҚОСЫМШАЛАРДЫ ҚҰРУ 3.1 Label, Edit, Memo мәтіндік құрауыштары. Button батырмасы

3 ТЕРЕЗЕЛІК ҚОСЫМШАЛАРДЫ ҚҰРУ

3.1 Label, Edit, Memo мәтіндік құрауыштары. Button батырмасы

Label тамғасы

Иерархиясы:

Құрауыштар Палитрасының Парағы: Standard.

Тамғалар экранға әртүрлі түсініктеме, атаулар, тақырыптар және т.б. тұратын мәтіндік ақпараттарды орналастыруға тағайындалған. Delphi – дегі тамғалар TLabel класының данасы болып табылады. TLabel класы тамғалардың негізгі сипаттамалары анықталған TCustomLabel класының ұрпақ класы болып табылады. Бұл класс TGraphicControl класының тікелей ұрпақ класы болып табылады, сондықтан ол тек тышқан арқылы берілген оқиғаға ғана әсер етеді.

TCustomLabel класының қасиеттерінен келесілерді белгілейміз:

Тамғаға негізгі қасиет болып TСontrol класынан туындалған Caption қасиеті табылады. Дәл осында экранға шығатын мәтін орналастырылады.

TCaption = type WideString;

TAlignment = (taLeftJustify, taRightJustify, taCenter);

Қасиет құрауыштағы мәтіннің теңестірілуін анықтайды. Ол келесі мәндерді қабылдауы мүмкін: taLeftJustify – сол жақ шеті бойынша теңестірілу; taRightJustify – оң жақ шеті бойынша теңестірілу, taCenter – ортасы бойынша теңестірілу. Үнсіздік белгісімен теңестірілу сол жақ шеті бойынша ұйымдастырылады.

property AutoSize: Boolean;

Егер қасиеттің мәні True – ге тең болса, онда тамғаның биіктігі мен ені онда орналасқан мәтінге сәйкес автоматты түрде өзгереді.

Қасиет тамғаның вертикаль жағдайын анықтайды:

tlTop – жоғарғы бөлігінде орналасқан;

tlCenter – ортасында орналасқан;

tlBottom – төменде орналасқан.

property Transparent: Boolean;

Егер қасиет True мәнінен тұрса, тамғаның фоны басқа құрауыштармен қатынасына қарағанда айқын болады. Үнсіздік белгісімен False мәніне тең.

Егер қасиет True мәніне тең болса, онда ағымды жол толтырылғаннан кейін мәтіннің жаңа жолға тасымалдануы орындалады. Үнсіздік белгісімен False мәніне тең.

Тамға тышқанды қолданған және құрауыштарды тасымалдаған кез – келген оқиғаны өңдейді. Үнсіздікпен тамға үшін оқиға OnClick оқиғасы болып табылады.

TCustomEdit класы

Delphi – де пернетақта арқылы бағдарламаға әртүрлі символдық ақпараттарды енгізетін және редакциялайтын бірнеше құрауыштар анықталған. Олардың барлығы мынандай мүмкіншіліктерді жүзеге асыра алады, ерекшелеу, көшіру, жою, үзінділерді қою, мәтіннің скроллингі, егер ол терезеге сыймайтын болса және т.б. Барлық редактірлердің жиынынан біз TEdit класының жолды енгізу және мәтін редактірі TMemo – ны қарастрамыз.

Көптеген стандартты редактірлер TCustomEdit класының ұрпақтары болып табылады. TWinControl класының ұрпақ класы болып табылатын TCustomEdit класы барлық мәтіндік редакторларға жалпы болып табылатын сипаттамалар тізімінен тұрады. Ең негізгісі болып келесі қасиеттер табылады:

property AutoSelect: Boolean;

Егер қасиеттің мәні True – ге (мәні үнсіздік бойынша) тең болса, онда мәтін редактір белсенді болғанда ерекшеленеді.

Егер қасиеттің мәні True – ге тең болса, онда редактордың биіктігі қаріптің биіктігіне сәйкес автоматты түрде өзгереді.

Редактірге орналастырылатын символдардың максимальды санын анықтайды. Егер қасиеттің мәні нольге тең болса (үнсіздікпен қолданылады), онда редактірге символдардың ерікті санын орналастыруға болады.

Редактірге нақты енгізілетін симолдардың орнына бейнеленетін символды береді. Редактірдің мұндай тәртібі бағдарламада парольді қолданғанда керек болады. Егер қасиеттің мәні коды 0-ге тең (мәні үнсіздік бойынша) символ болса, онда енгізілетін символдар түрлендірілусіз бейнеленеді.

Егер қасиеттің мәні True – ге тең болса, онда мәтін тек оқуға ғана тағайындалған, яғни оны өзгертуге болмайды. Үнсіздік бойынша мәні False – ге тең.

TCustomEdit класында редактірлеу функцияларын жүзеге асыратын бірнеше әдістер анықталған:

procedure Clear; virtual;

Редактірде орналастырылған барлық мәтінді жояды.

Мәтіннің ерекшеленген үзіндісін жояды.

Мәтіннің ерекшеленген үзіндісін Clipboard буферіне көшіреді.

Clipboard буферіндегі мәтінді редактірдің меңзерінің орнына көшіреді.

Редактірде орналасқан бүкіл мәтінді ерекшелейді.

Көптеген редактірлерде келесі командаларды орындайтын, құрамдас жергілікті менюлер бар:

Undo – мәтіндегі соңғы орындалған операцияны болдырмау;

Cut – ерекшеленген үзіндіні қиып алып, оны алмасу буферіне орналастыру;

Copy – ерекшеленген үзіндіні алмасу буферіне көшіру;

Paste – алмасу буферіндегі үзіндіні мәтіннің меңзер орнынан бастап орналастыру;

Delete – ерекшеленген үзіндіні жою;

Select All – бүкіл мәтінді ерекшелеу.

Edit енгізу жолы

Иерархиясы:

Құрауыштар Палитрасының Парағы: Standard.

Енгізу жолының негізгі қасиеті болып Text қасиеті табылады:

TCaption = string;

Edit редактіріндегі символдық жолдан тұрады.

Символдық жол қасиетке пішінді құрастыру кезеңінде немесе бағдарламаның орындалуы барысында орналастырылуы мүмкін. Көбінде редактір ақпаратты енгізу үшін қолданылады. Бұл жағдайда пішінді құрастыру кезеңінде Text қасиетіне бос жолды орналастыруға болады, ал бағдарламаның орындалуы барысында одан енгізілген мәндерді алуға болады. Егер сандық берілгендердің символдық белгілері енгізілсе, онда алдыңғы уақытта типті түрлендіретін сәйкес бағыныңқы бағдарламаның көмегімен түрленуі қажет (Б қосымшасына қараңыздар).

Енгізу жолы терезелік басқару элементі болып табылғандықтан, ол пернетақта мен тышқан арқылы берілген хабарламаны, тасымалмен байланысты, активтеу мен активтеуді болдырмау, сонымен қатар OnChange оқиғасын өңдейді:

property OnChange: TNotifyEvent;

Енгізу жолының мәтіні өзгергенде өрбиді. Үнсіздік бойынша TEdit класының енгізу жолының оқиғасы болып табылады.

Иерархиясы:

Страница Палитры Компонентов: Standard.

Memo мәтіндік редактірі Edit енгізу жолымен салыстырғанда бір емес, кез – келген жолдар санынан тұруы мүмкін. Memo редактірі TMemo класының данасы болып табылады. Өз кезегінде TMemo класы тікелей TCustomMemo класынан туындаған, онда көп жолды мәтіндік редактірлердің негізгі сипаттамалары берілген.

TCustomMemo класының келесі қасиеттерін белгілейік:

property Lines: TStrings;

TStrings кластық типтің қасиеттері (төменнен қараңыздар). Редактірде орналасқан жолдар тізімін береді.

property ScrollBars: TScrollStyle;

type

TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth);

Скроллингтің сызғыштарының барын береді:

ssNone – сызғыш жоқ,

ssHorizontal – тек көлденең сызғыш,

ssVertical –тек тік сызғыш,

ssBoth –екі сызғыш та бар.

property WantReturns: Boolean;

Enter пернесінің әрекетін анықтайды. Егер мәні True – ге тең болса, онда Enter пернесіне басқанда мәтіннің жаңа жолына ауысу орындалады. Қарсы жағдайда енгізу фоксы пішінге беріледі, ал мәтіннің жаңа жолына көшу Ctrl+Enter пернелерінің комбинациясын басқанда орындалады.

Edit енгізу жолы сияқты, көп жолды Memo мәтіндік редактірі пернетақта мен тышқан арқылы берілген хабарламаны, тасымалмен байланысты, активтеу мен активтеуді болдырмау, сонымен қатар OnChange (үнсіздік бойынша ) оқиғасын өңдейді:

TStrings класы

TStrings – TPersistent класының тікелей ұрпақ класы абстрактілі класс болып табылады. Бұл кластың объектілері жолдар тізімін береді. Әрбір жолмен қандай да бір объект байланысқан болуы мүмкін, мысалы сурет немесе пиктограмма. Егер жолмен ешқандай объект байланыспаған болса, онда оған нұсқағыштың мәні nil – ге тең. TStrings класы жалпы тағайындалған класс болып табылады және Delphi – дегі көптеген құрауыштарға сәйкес типтердің қасиеттерін анықтау үшін қолданылады. TStrings класының негізгі қасиеттерін қарастырайық:

property Count: Integer;

Тізімдегі элементтердің санын анықтайды.

Index индексі бар жолмен ассоциативтелген объектіге нұсқағышты анықтайды.

Тізімнің Index индексі бар жолын анықтайды. Бірінші жолдың индексі – 0.

Тізімнің барлық жолдарынан тұрады, бөлгіштерді қоса алғанда – каретканы қайтару символы және жолды аудару (#13#10).

Тізімге S жолын қосады және осы жолдың тізімдегі реттік нөмірін қайтарады.

S жолын және онымен байланысты AObject объектісін тізімге қосады және тізімдегі жол мен объектінің индексін қайтарады.

Тізімді жаңалаудың басын бекітеді. Экранда қайта сурет салу уақытша тоқтатылады.

Тізімдегі барлық жолдарды және объектіге нұсқағыштарды жояды.

Index индексі бар элементті тізімнен жояды.

Жаңартудың аяқталуын бекітеді және қажет болған жағдайда жолдарды сұрыптайды.

Index1 және Index2 индекстері бар екі элементі орындарымен ауыстырады.

Тізімге Index индекспен S жолын қояды.

Тізімге S жолын және Index индекспен AObject объектісін қояды. procedure LoadFromFile(const FileName: string); virtual;

FileName аты бар файлдан тізімді іске қосады.

procedure Move(CurIndex, NewIndex:Integer); virtual;

Тізімнің элементін CurIndex позициясынан NewIndex позициясына жылжытады.

тізімді FileName аты бар файлға орналастырады.

Иерархиясы:

Құрауыштар Паоитрасының Парағы: Standard.

Батырманың негізгі тағайындалуы – оған шерткенде оқиғаның қалыптасуы. Батырма оған шерткенде қандай да бір әрекетті орындайтындай қажеттілік туатын пішіннің кез – келген жерінде орналасуы мүмкін. Button батырмасы TButton класының данасы болып табылады, олардың арғы тектері болып TButtonControl және TwinControl кластары табылады. Сондықтан Button батырмасы терезелік басқару элементі болып табылады.

TButton класына келесі қасиеттер қосылған:

property Cancel: Boolean;

Егер қасиеттің мәні True – ге тең болса, онда ESC пернесіне басу, берілген батырмаға басумен мәндес болады.

Егер қасиеттің мәні True – ге тең болса, онда Enter пернесіне басу, берілген батырмаға басумен мәндес болады, егерде енгізу фокусында қандай да бір басқа батырма орналаспаса.

Модальды терезелерді жапқанда қолданылатын қасиет. Қарапайым терезелер үшін бұл қасиеттің мәні mrNone – ге тең болуы керек..

Бұл әдістің орныдалуы батырмаға шерткенге мәндес келеді, яғни оның орындалуының нәтижесінде батырма үшін OnClick оқиғасы өрбиді.

Мысал 3.1.1. Label, Edit, Memo және Button құрауыштарын қолдану.
Ағымды коэффициенттері бар () квадрат теңдеудің түбірлерін есептейтін бағдарлама құру

1. 
   Меншік қаптамаңызға (№1 – ші зертханалық жұмысқа қараңыздар) MyFirstProject қаптамасын құрыңыздар (кез – келген басқаны да құруға болады).
   
2. 
   Негізгі менюдің File | New | Application командасы арқылы жаңа қосымша ашыңыздар.
   
3. 
   Form1 пішініне келесі құрауыштарды орналастырыңыздар (3.1.1 суретіне қараңыздар):
   
4. 
   Label тамғасының Caption қасиетіне мына мәнді беріңіздер:
   «Введите коэффициенты квадратного уравнения
   A2*X^2+A1*X+A0=0»
   Мәтін екі жолға орналасу үшін және тамғаның ортасы бойынша теңестірілуі үшін қасиеттің келесі мәндерін қажетті түрде орнату керек:
   AutoSize – False,
   WordWrap – True,
   Alignment – taCenter.
   Тамғаның өлшемін және оның орналасу жағдайын қолмен ұйымдастыруға болады.
   Font қасиетіне келіңіздер және үш нүктесі бар батырмаға шертіңіздер. Пайда болған терезеден қаріптің өлшемін 8 – ден 10 – ға өзгертіңіздер. OK батырмасына басыңыздар .
   
5. 
   Label2, Label3 және Label4 тамғалары үшін Caption қасиетіне ‘A0=’, ‘A1=’ және ‘A2=’ - ге тең деп сәйкес орнатыңыздар.
   
6. 
   Edit1, Edit2 және Edit3 қасиеттері үшін Text қасиетінің мәнін бос жолға тең деп орнатыңыз.
   
7. 
   Memo1 құрауышы үшін Lines қасиетін таңдаңыздар және үш нүктесі бар батырмаға басыңыздар. Пайда болған String List Editor терезесінен ‘Memo1’ жолын жойыңыздар. OK батырмасына басыңыздар.
   
8. 
   Button1 және Button2 батырмаларының Caption қасиетіне ‘Решение’ және ‘Очистить’ сәйкес орнатыңыздар.
   
9. 
   Екі рет шерту арқылы Решение батырмасын белсенді етіңіз және OnClick оқиға өңдеуішіне келесі жолды қойыңыздар:
   

a0, a1, a2, d, x1, x2: Double;

a0 := StrToFloat(Edit1.Text);

a1 := StrToFloat(Edit2.Text);

a2 := StrToFloat(Edit3.Text);

d :=a1*a1-4*a2*a0;

IF d>=0 THEN

BEGIN

x1 := (-a1+sqrt(d))/(2*a2);

x2 := (-a1-sqrt(d))/(2*a2);

Memo1.Lines.Add(’Результат:’);

Memo1.Lines.Add(’x1 = ’+FloatToStrF(x1,ffGeneral,7,2));

Memo1.Lines.Add(’x2 = ’+FloatToStrF(x2,ffGeneral,7,2));

Memo1.Lines.Add(’Решений нет:’);

Бағдарламаушы терген жолдар жартылай қою қаріппен ерекшеленген.

10. 
    F12 пернесіне басыңыздар және пішінге қайтып оралыңыздар. Екі рет шерту арқылы Очистить батырмасын белсенді етіңіз және OnClick оқиға өңдеуішіне мына жолды қойыңыздар
    

11. 
    Жобаны C:\…\Мои документы\…\ MyFirstProject қаптамасына сақтаңыздар және F9 функциональды пернесін қолданып қосымшаны іске қосыңыз. Квадрат теңдеуді шешу үшін коэффиценттерді енгізіңіз және Решение батырмасына басыңыз. Редактірлеу терезесін тазалау үшін Очистить батырмасына басыңыздар (сурет 3.1.2 қараңыздар).