5. TCheckBox компоненті

5.2. Компонент күйін State қасиеті көрсетеді. CbUn checked –жоқ, Cb Checked-иә, cbGrayed- білмеймін. Бұл қасиет оқуға да, жазуға да арналған. Checked қасиеті қолданушының иә/жоқ типті таңдауын көрсетеді. TGroupBox контейнеріне екі Тchecked компонентін орналастырыңыз. Caption қасиетіне 2сур. сәйкес мәндерді енгіз.

5.3. Осы компоненттер үшін OnClick оқиғасын өңдеушілерді құрыңыз. Procedure Tform 1. Check Box 1 Click (Sender: T Object);

begin

If CheckBox1. State= cbChecked then

Memo1. Font. Style:= [fcItalic]

{егер айырғыш қойылған болса, онда штриф редакторы – курсов, ]

[Әйтпесе штриф келісім бойынша]

Else

Memo1. Font Style:= [];

end;

Procedure Tform 1. Check Box 2 Click (Sender: T Object);

begin

If CheckBox2. State= cbchecked then

Memo1. Font. Color:= clRed

Else

Memo1. Font. Color:= clBlack;

end;

5.4. Жаңа қойылған компоненттер жұмысын тексеріңіз.

6. TSсrollBar компоненті

6.2. Panel1- ге TsсrollBar компонентті қoйыңыз. Бұл компонент сандық шама мәнін визуальды басқаруға қолданады.Position қаситі сандық шаманың ағымдағы мәнін қабылдайды. Міn және Мах қасиеттерінде сандық шаманың кіші және үлкен мәндері орналасқан.

6.3. Осы компонент үшін OnScroll оқиғасын құрыңыз. Position қасиетінің кез- келген өзгерісінде OnScroll оқиғасы пайда болады.

Procedure Tform1. ScrollBar1Scroll (Sender:Tobject; Scroll Code: TscrolCode;var ScrollPos: Integer);

begin

x:= ScrollBar1. Position;

Edit1. Text:= FloatToStr(x);

end;

Бұл оқиғада х айнымалысының мәнін жылжыту сызғышының позициясымен байланыстырдық.

7. Редактор терезесіне фокустың жұмыс басында орналастыру үшін тағы бір оқиға өңдеушісін құрамыз. On Activate формасы үшін оқиға терезені активтендіргенде пайда болады(енгізу фокусын алғанда).

Procedure Tform1. formActivate(Sender:Tobject);

begin

Edit1.Set Focus;

end;

8. Delphi терезесін кішірейтіңіз және Lab2 каталогымен барлық файлдарды жойыңыз.

2-сурет. Жалпы мысалдың қосымша терезесі.

Жаңа қасиеттер, әдістер, оқиғалар.
	Қасиеттер
Items	Тізім жолдарын сақтайды.
ItemIndex	Тізімдегі таңдалған элемент номерін көрсетеді.
Checked	ТCheckBox және RadioButton айырғыштарында қолданушының иә/ жоқ типті таңдауын көрсетеді.
State	Компонент күйін көрсетеді: cbUnchecked- жоқ,ċbchecked- иә, cbGrayed- білмеймін.
Position, Min, Max.	Сандық шаманың ағымдағы, кіші және үлкен мәні.
ScrollBars	Жылжыту сызғышын анықтайды.
Anchors	Ішкі компоненттің сыртқы компонент шекарасына сәйкес белгілеу әдісін анықтайды.
	Әдістер.
Clear Setfocus	Компонент ішін тазартады. Енгізу фокусын құрады.
	Оқиға.
OnScrool	TscrollBax компонентінің Position қасиетін кез- келген өзгертуде пайда болады.
OnActivate	Терезені активтендіргенде форма үшін пайда болады.

Өзіндік жұмыс.

Ұсынылатын уақыт 40 минут.

Тапсырма:

Бір өлшем бірлігінен екіншісіне көшіретін қосымша құрыңыз. Өлшем бірлігін TComboBox компонент көмегімен таңдаңыз.

Варианттар	Алғашқы мәліметтер.
1.	1мм. рт.ст=133 Па 1дин/см = 0,1Па 1физ.Атм=1,013*10 Па 1кг. с*м =9,81Па
2.	1дюйм=2,54 см 1ярд=0,9144м 1верс=500 сажень 1косая сажень= 1,76м
3.	1бушель= 36,37дм 1галлон= 4,54дм 1пинта= 0,5683дм
4.	1калория= 4,19дж 1эрг= 10 дж 1кг.с*м= 9,81дж 1ватт*час= 36*10 дж

Программаны өз каталогыңыздың Lab2 ішкі каталогына жазыңыз.