ПӘнінен оқУ-Әдістемелік кешен


procedure TForm1.Button1Click(Sender: TObject)



бет7/18
Дата08.06.2018
өлшемі2,16 Mb.
#41779
1   2   3   4   5   6   7   8   9   10   ...   18

procedure TForm1.Button1Click(Sender: TObject);

begin

k:=k+1;radiobutton1.Checked:=false; radiobutton2.Checked:=false;

radiobutton3.Checked:=false;

if k=1 then begin edit1.Text:='Delphi тіліндегі жоба файлының типі?';

radiobutton1.Caption:='frm';

radiobutton2.Caption:='pas';

radiobutton3.Caption:='dpr' end;

if k=2 then begin edit1.Text:='Delphi тіліндегі код файлының типі?';

radiobutton1.Caption:='dpr';

radiobutton2.Caption:='pas';

radiobutton3.Caption:='frm'; end;

if k=3 then edit2.Text:='Дұрыс жауап саны: '+ inttostr(s);



end;

{“Келесібатырмасының коды }

procedure TForm1.Button2Click(Sender: TObject);

begin

n:=n+1;


if (n=1) and (radiobutton1.Checked) then s:=s+1;

if (n=2) and (radiobutton3.Checked) then s:=s+1;



if (n=3) and (radiobutton2.Checked) then s:=s+1;

end;

end.

Мысал3.Таңдалған жыл мезгілі нөміріне байланысты бұл мезгілге сәйкес ай аттарын шығарыңдар.




19- сурет.

Шешуі:

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if radiobutton1.Checked then edit1.Text:='желтоқсан, қаңтар, ақпан';



end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if radiobutton2.Checked then edit1.Text:='наурыз, сәуір, мамыр';



end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if radiobutton3.Checked then edit1.Text:='маусым, шілде, тамыз';



end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

if radiobutton4.Checked then edit1.Text:='қыркүйек, қазан,қараша';



end;

Әдебиеттер: [1]-[7], қ[1]-[5]

4- апта

1 кредит сағат.

Тақырыбы: Additional парағының компоненттері. Вitbtn, shape, Image компоненттері

Дәріс мазмұны:

1. Additional парағының компоненттері

2. Вitbtn, shape, Image компоненттері және қасиеттері.
Additional парағының құрамына сұхбаттасу терезелерін орнату үшін қолданылатын келесі компоненттер кіреді.



27- сурет. Additional парағы.

BitBtn – Бетінде суреті және жазуы бар нұсқаулық батырма.



SpeedButton – пиктограммалық батырма.

MaskEdit – арнайы мәтіндік редактор. Енгізілетін мәтінді сүзгілеуге мүмкіндік береді.

StringGrid – жолдар кестесі. Бұл компонент мәтіндік ақпаратты

кесте түрінде шығаруға мүмкіндік береді.



DrawGrid – кез- келген түрдегі мәліметтерден тұратын еркін кесте (тіпті

суретте те болуы мүмкін)

Image – сурет. Бұл компоненттің көмегімен суреттерді,

пиктограммалар мен метафайлдарды шығаруға болады.



Shape – фигура. Бұл компоненттің көмегімен әр түрлі

фигураларды (төртбұрыш, эллипс, шеңбер т.с.с.) формаға

орналастыруға болады.

Bevel – жиек. Терезенің аумағын үш өлшемді қоршаумен

немесе белдеулермен жиектеу үшін арналған.

ScrollBox – орағыш жолақтар тақтасы. Егер тақташадағы орналыстырылған компоненттер ашылған терезеде толығымен көрсетілмесе, онда белдеулер автоматты түрде орнатылады.



CheckListBox – ұсынылған тізімнен бірнеше опцияларды таңдауға

мүмкіндік туғызады (әр опция CheckBox ауыстырғышымен

қамтылған).

Srlitter – шекара. Бұл компонент формадағы екі көрінетін

компоненттер аралығында орналасады және бағдарламаның

орындалу барысында компоненттерді арасындағы шекарасын

жылжытуға мүмкіндік туғызады.

StaticText – статикалық мәтін, Label -ден айырмашылығы –

өзіндік Windows терезесімен қамтылған. Сондықтан бұл терезедегі

мәтінді жиектеуге болады.



Application-Events – Егер бұл компонент формаға орналыстырылса,

онда Windows-тің бағдарламаға арналған хабарлары сол терезеге

шығарылады.

Chart – диаграмма. Бұл компонент мәліметтерді графикалық жолмен беруге арналған арнайы тақташаларды құруды жеңілдетеді.

Standard парағында орналасқан Button батырмасы стандарт батырма болып табылады да, қосымша жасауда жиі қолданылады. Ал Additional парағында батырманың ерекше түрі –Bitbtn қолданылады. Бұл батырманың қарапайым батырмадан айырмашылығы- оның бетіне сурет орналастыруға болады. Батырма бетіндегі жазу Caption қасиеті арқылы қойылады.

Bitbtn батырмасының Kind қасиеті батырма түрін анықтайды. Бұл қасиеттің қалыпты жағдайдағы мәні- bkCustom. Одан басқа да мәндері: bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll. Бұл батырмаларда сәйкес жазу мен пиктограмма орнатылған.

Батырма бетіне сурет Glyph қасиеті арқылы қойылады. Объект бақылаушысы терезесіндегі Glyph қасиетінің жанындағы көп нүктелі жолды шерткен кезде шағын терезе ашылады. Одан Load батырмасын шертіп, қажетті bmp типті файлды таңдау керек. Delphi-де батырмалар үшін суреттердің мол жиынтығы бар. Олар әдетте \program files\common files\borland shared\ Images\Buttons бумасында орналасады.



Кез- келген батырманың негізгі оқиғасы- OnClick. Ол батырманы шеркен кезде пайда болады.

28- сурет.

Мысал1. Сәйкес батырмаларды шерткенде экранға ағымдық уақыт, ағымдық дата шығатын және Edit компонентіндегі мәтінді алмастыру буферіне қиятын, көшіретін және қоятын және форманы жабатын код жазыңдар.




Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10   ...   18




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет