Іс тәжірибелік жұмыстар №5

Тақырыбы: Delphi ортасының TPageControl компонентімен танысу және оның қасиеттерімен танысу.

Мақсаты: TPageControl компонентімен жұмыс істеу дағдыларын қалыптастыру.

Тапсырма: TPageControl компоненті көмегімен тест сұрақтары енгізілген программалау қосымшасын жасау.

Теория: TPageControl компоненті көмегімен терезені қосымша бөліктерге бөлу мүмкіндігін алуға болады. Ол әрқайсысы жеке парақ болып табылатын компонент қызметін атқарады. Парақтарды жасау үшін компонент үстін тышқанның оң жақ түймесін басу қажет. Белгілі бір параққа орналасқан визуалдық компоненттер келесі параққа өткенде көрінбейтін және қолданылмайтын болып қалады.

TPageControl компонентінің керекті парағын белсенді ету үшін ActivePage мүмкіндігін қолданамыз. Сонымен қатар, белсенді парақ ActivePageIndex деп аталатын қасиетке сәйкесті индексімен анықталады. Парақты басқа парақпен алмастыру үшін OnChange оқиғасы қарастырылған. TpageControl компонентінің әрбір парағы TtabSheet класының жеке компоненті болып табылады. Оның кейбір қасиеттерін атап өтелік:

• Caption – парақтың атына енгізілетін тексттік жол;

• TabIndex – парақтың орналасу орнын көрсетеді. Нөмірлеу 0 санынан басталады.

• TabVisible – парақты уақытша көрінбейтін ету.

TPageControl компоненті көмегімен тест сұрақтары енгізілген программалау қосымшасын жасау технологиясы:

1. Жаңа проект ашу, формаға келесі қасиеттерді беру:

Қасиет	Мән
Name	ExamForm
Caption	Емтихан
BorderStyle	bsDialog
Position	poScreenCenter

2. Компоненттер палитрасының Win32 бөлігінен TpageControl компонентін екі шерту арқылы форма бетіне орналастырамыз.

3. TpageControl компонентінің оң жақ түймесін басып, NewPage бұйрығын орындаймыз. TtabSheet1 жазуы бар бірінші парақ пайда болады. Оның мынадай қасиеттері бар:

4. Қасиет	Мән
   PageControl	Көп парақты компонент нөмірі
   PageIndex	Көрінетін парақтың реттік нөмірі
   TabIndex	Парақтың көрінуі

5. Object Inspector қасиеттер тізіміне өтіп, парақтың Caption қасиетіне, Математика мәнін енгізу керек. Дәл осы әдіспен екі парақ қосып, Физика, Информатика атауларын беру қажет.

6. Математика парағын ашып, RadioGroup компонентін орналастыру.

Оның мына қасиеттеріне мән беру керек:

Қасиет	Мән
Caption	Правильным является выражение
Items	Sin50^0< cos50^0 Sin50^0> cos50^0 Sin50^0=cos50^0
ItemIndex	0
Tag	1

7. Физика парағын ашып, RadioGroup компонентін орналастыру.

Оның мына қасиеттеріне мән беру керек:

Қасиет	Мән
Caption	Когда лед в воде тает
Items	Уровень воды поднимается Уровень воды понижается Уровень воды остается
ItemIndex	0
Tag	2

8. Информатика ашып, RadioGroup компонентін орналастыру.

Оның мына қасиеттеріне мән беру керек:

Қасиет	Мән
Caption	Единица измерения информации
Items	Код Бит Символ
ItemIndex	0
Tag	1

9. Математика парағы белсенді болуы үшін сол парақты ашып қою керек. Сонымен ақтар, форманың ActveControl қасиетіне RadioGroup1 қасиетін енгізу қажет.

10. Тестті бағалау үшін формаға 2 Button қою керек.

    Компонент	Қасиет	Мәні
    Button1	Caption Default	Результат True
    Button2	Caption Default	Закрыть True

11. Button1 компоненті үшін OnClick оқиғасын өңдеу процедурасын жазу керек:

procedure TForm1.Button1Click(Sender: TObject);

const marktext:array[0..2] of string=('удовлет.','хорошо','отлично');

var mark:integer;

begin

mark:=0;

if radiogroup1.ItemIndex= radiogroup1.Tag then inc(mark);

if radiogroup2.ItemIndex= radiogroup2.Tag then inc(mark);

if radiogroup3.ItemIndex= radiogroup3.Tag then inc(mark);

showmessage('Your result='+marktext[mark]);

end;

12. Button2 компоненті үшін OnClick оқиғасын өңдеу процедурасын жазу керек:

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;