«Delphi программалау тілі»
Caption қасиеті батырма жанында шығатын жазудан тұрады. Alignment
жүктеу/скачать 1,77 Mb.
|
Delphi программалау тілі
- Бұл бет үшін навигация:
- taRightJustify
| 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,77 Mb. Достарыңызбен бөлісу:
|