嚣-က командасын орындаңыз.
TForm1. Button1Click келесінің жазыңыз:
var
a,b:integer;
с:real;
begin
a:StrToInt(Edit1. text);
b:StrToInt(Edit2. text);
Edit3. text:;
Case RadioGroup1. ItemIndex of
: c:ab;
: c:a-b;
: c:ab;
: деление if b0 then ShowMessage( Нөлге бөлуге болмайды!)
else c:a/b; end;
if RadioGroup1. ItemIndex 3 then
Edit3. text: FloatToStrF(c,ffGeneral,10,7)
else if b0 then
Edit3. text:FloatToStrF(c,ffGeneral,10,4)
end;
TRadioButton таңдау батырмалары
Формаға бірнеше RadioButton компонентін қойыңыз.
Жобаны жүктеңіз.
Бірнешеуіш бір мезгілде белгілеуге болмайтынына көз жеткізіңіз
Екеуін бір мезгілде қалай белгілеуге болады?
Ол үшін оларды бірнеше панельге ортау керек.
Объектілерді топтастыру (GroupBox)
GroupBox компоненті панельге ұқсайды, бірақ жоғары бөлігінде тақырыпшасы болдаы.
Компоненттер тобы RadioButton (TRadioGroup)
Бұл компонентті формаға орнатсақ, бірінші қарағанда ол GroupBox сияқты болады. Бірақ оның Items қасиетін бассақ, бізге таныс тізім шығады. Онда үш жол енгізіңіз:
Барлығын
Ерекшеленгендерін
Ағымдағын
ОК батырмасын шертіңіз.
Формаға батырма, енгізу өрісін және TLabel компонентін қойыңыз.
Енді RadioGroup1 компонентінің OnClick оқиғасына келесі кодты жазамыз:
Label1. Caption:IntToStr(RadioGroup1. ItemIndex);
RadioGroup1 компонентінің ItemIndex қасиеті қай компоненттің ерекшеленіп тұрғанын көрсетеді.
Батырманы екі рет шертіп, келесі мәтінді жазамыз:
procedure TForm1. Button1Click(Sender: TObject);
begin
Edit1. Text:IntToStr(RadioGroup1. ItemIndex);
end;
Оқытушы Г. К. Мукушова
Страницы: << < 1 | 2