Мазмұны кіріспе электрондық ОҚулықтарды пайдалану 8

жүктеу 1,27 Mb.

бет	4/8
Дата	05.02.2018
өлшемі	1,27 Mb.
	#8786
түрі	Оқулық

1 2 3 4 5 6 7 8

Енді RadioButton батырманың қасиеттерін қарастырайық. Caption қасиетімен батырманың жанында көрсетіліен жазу анықталады. Alignment –бұл қасиет жазу батырманың қай жағынан шығатынын белгілейді – taLeftJustify – сол жағынан, taLeftJustify - оң жағынан (үнсіз бойынша беріледі). Checked - бұл қасиет пайдаланушы батырманы таңдағанын анықтайды. Егер батырманы басқалардың арасынан таңдап алу қажет болса, онда оның Checked қасиетін true-ға тұрғызып қою керек. Батырмалардың біреуі ақ таңдап алынатын себебінен, олардың тек қана біреуінің Checked қасиеті true-ға тең болу мүмкін. GroupBox панелінде орналастырылған RadioButton батырмалар еркін тұрады. Негізінде бұл батырмаларды кез келген контейнердің ішіне, мысалы, форманың үстіне, қоюға болады. Форманың үстіне орналастырып қойылған батырмалар бір топ болып жұымс істейді, яғни олардың тек біреуінің Checked қасиетін true-ға апарып қоюға болады.

Сонымен GroupBox панеліне батырмаларды орналастырып қоямыз. Бірінші RadioButton батырмаға Caption қасиет арқылы “Кіріспе” тақырыбын береміз. Батырманы шерткен кезде RichEdit редакторына «Введение.rtf» файлын шығару үшін программалау модульдің ішіне мына командаларын жазамыз:

procedure TForm2.RadioButton1Click(Sender: TObject);

begin

RichEdit1.Lines.Clear;

RichEdit1.Lines.LoadFromFile('C:\Dip_Ci\Progr\Линейн\Введение.rtf');

end;

Екінші RadioButton батырманың Caption қасиетінің ішіне “Әдебиеттер” тақырыбын жазамыз. Батырманы шерткен кезде RichEdit редакторына «Литер.rtf» файлы шығарылатын болу үшін программалау модульдің ішіне мына командаларын жазылады:

procedure TForm2.RadioButton2Click(Sender: TObject);

begin

RichEdit1.Lines.Clear;

RichEdit1.Lines.LoadFromFile('C:\Dip_Ci\Progr\Линейн\Литер.rtf');

end;

Үшінші RadioButton батырманың Caption қасиетінің ішіне “Turbo C программамен жұмыс істеу” тақырыбын жазамыз. Батырманы шерткен кезде RichEdit редакторына « ТУРБО_СИ.rtf'» файлы шығарылатын болу үшін программалау модульдің ішіне мына командаларын жазылады:

procedure TForm2.RadioButton3Click(Sender: TObject);

begin

RichEdit1.Lines.Clear;

RichEdit1.Lines.LoadFromFile('C:\Dip_Ci\Progr\Линейн\ТУРБО_СИ.rtf');

end;

7 сурет. “Кіріспе”-де Turbo C программамен жұмыс істеу тақырыбы көрсетілуде

Терезені жабу үшін әр терезеге “Шығу” жазуы бар button батырмасын орнатып оның onClick оқиғасына терезені жабатын командасын жазып қоямыз:

procedure TForm2.Button1Click(Sender: TObject);

begin

Close;

end;

Келесі терезеге тұрақтылар мен түсініктеме жайлы мәтіндерді шығарамыз. Бірақ бұл жерде мәтіндерді шығару үшін WebBrowser компоненті қолданылады. Сонымен жаңадан ашылған форманын үстіне WebBrowser, RadioGroup, 4 RadioButton және button компоненттерін орнатып қоямыз. Олардың орналасуын 8 суреттен көруге болады. Бұл жерде 4 RadioButton компоненттері RadioGroup компоненттің үстіне орналасқан.

8 сурет. Мәтінді WebBrowser компонент арқылы шығару

RadioButton компонентті шертіп, керек файлды ашып көрсету үшін программалық модуліне мына командаларды жазу керек:

procedure TForm18.RadioButton1Click(Sender: TObject);

begin

WebBrowser1.Navigate('C:\Dip_Ci\Progr\Линейн\1_4.doc');

end;

WebBrowser компоненттің өлшемдерін форма өлшемдерімен бірге өзгерту үшін форманың onResize оқиғасына мына командаларды жазу керек:

procedure TForm18.FormResize(Sender: TObject);

var wm, hm, w,h: integer;

begin

Form18.Refresh;

wm:= Form18.ClientWidth;

w:=wm - 10;

hm:= Form18.ClientHeight;

h:=hm - 72;

WebBrowser1.Width:=w;

WebBrowser1.Height:=h;

end;

Бұл жерде h:=hm - 72; команданың орнына

h:=hm – RadioGroup.Height; - деп жазуға болады.

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

Келесі формаға (9 сурет) WebBrowser, RadioGroup, 6 RadioButton, 2 button және PageControl компоненттерін орнатып қоямыз. Олардың жайғасуы

9 сурет. Қарапайым программа жөніндегі терезе

жүктеу 1,27 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8