«Delphi программалау тілі»


Caption қасиеті батырма жанында шығатын жазудан тұрады. Alignment



бет14/66
Дата11.09.2020
өлшемі1,77 Mb.
#77807
түріПрограмма
1   ...   10   11   12   13   14   15   16   17   ...   66
Байланысты:
Delphi программалау тілі

Caption қасиеті батырма жанында шығатын жазудан тұрады. Alignment қасиеті жазудың батырманың қай жағынан шығатынын анықтайды. Оның мəндері:

taLeftJustify- сол жақтан, taRightJustify- оң жақтан (қалыпты жағдайда). Checked қасиеті бұл батырманың қолданушы арқылы таңдалғанын немесе таңдалмағанын көрсетеді. Оның мəні true болса, батырма таңдалған, false болса- таңдалмаған. CheckBox компоненті жалаушалы индикатор немесе басқаларға тəуелсіз ауыстырып- қосқыш батырма болып табылады. Ол қосымшада қолданушы қандай да бір опцияны қосу немесе айыру үшін қолданылады. Бұл компоненттің қасиеттері де RadioButton компонентіндей.

Мысал2. Тестілеу программасын жасаңдар. (18- сурет)



Шешуі: Батырма кодтары: var k,n,s :integer; Form1: TForm1; implementation

{$R *.dfm}



{“Ok” батырмасының коды } 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.Таңдалған жыл мезгілі нөміріне байланысты бұл мезгілге сəйкес ай аттарын шығарыңдар.





Достарыңызбен бөлісу:
1   ...   10   11   12   13   14   15   16   17   ...   66




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

    Басты бет