"> __ fastcall TForm2 :: TForm2 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm2 :: Button18Click (TObject * Sender)
{(RadioButton2- gt; Visible == true) {(sl==1){-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;ShowModal();-gt;Caption=laquo;Praquo;;++;}((sl==2)||(sl==3)||(sl==4)||(sl==5)) {- gt; ShowModal ();} - gt; Enabled=false; (k == 6) {(sl == 1) ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl == 2) ShowMessage ( laquo ; Ви абсолютно вірно відповіли НЬЮТОН ); (sl == 3) ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl == 4) ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl == 5 ) ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ); - gt; ShowModal ();
} }(RadioButton2-gt;Visible==false)-gt;Caption=Label3-gt;Caption+laquo;Рraquo;;++;(vgt;15)Form10-gt;ShowModal();
}
//---------------------------------------------------------------------------__fastcall TForm2 :: Button6Click (TObject * Sender)
{(RadioButton2- gt; Visible == true) {(sl==1){-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;ShowModal();-gt;Caption=laquo;Еraquo;;++;}-gt;Enabled=false;((sl==2)||(sl==3)||(sl==4)||(sl==5)) {- gt; ShowModal ();} (k == 6) {(sl == 1) ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl == 2) ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl == 3) ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl == 4) ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl == 5) ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ); - gt; ShowModal ();
} }(RadioButton2-gt;Visible==false)-gt;Caption=Label3-gt;Caption+laquo;Еraquo;;++;(vgt;15)Form10-gt;ShowModal();
}
//---------------------------------------------------------------------------__fastcall TForm2 :: Button15Click (TObject * Sender)
{(RadioButton2- gt; Visible == true) {(sl==1){-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;ShowModal();-gt;Caption=laquo;Нraquo;;-gt;Caption=laquo;Нraquo;;++;++;}-gt;Enabled=false;(sl==2){-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;ShowModal();-gt;Caption=laquo;Нraquo;;-gt;Caption=laquo;Нraquo;;++;++;}((sl==3)||(sl==4)||(sl==5)){-gt;ShowModal();}(k==6){(sl==1) ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl == 2) ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl == 3) ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl == 4) ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl == 5) ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ); - gt; ShowModal ();
}}(RadioButton2-gt;Visible==false)-gt;Caption=Label3-gt;Caption+laquo;Нraquo;;++;(vgt;15)Form10-gt;ShowModal();
}
//---------------------------------------------------------------------------__fastcall TForm2 :: Button12Click (TObject * Sender)
{(RadioButton2- gt; Visible == true) {(sl==1){-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;ShowModal();-gt;Caption=laquo;Кraquo;;++;
}(sl==4){-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;ShowModal();-gt;Caption=laquo;Kraquo;;++;}-gt;Enabled=false;((sl==2)||(sl==3)||(sl==5)) Form4- gt; ShowModal (); (k == 6) {(sl == 1) ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl == 2) ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ) ; (sl == 3) ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl == 4) ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl == 5) ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ); - gt; ShowModal ();
}}(RadioButton2-gt;Visible==false)-gt;Caption=Label3-gt;Caption+laquo;Кraquo;;++;(vgt;15)Form10-gt;ShowModal();
}
//---------------------------------------------------------------------------__fastcall TForm2 :: Button10Click (TObject * Sender)
{(RadioButton2- gt; Visible == true) {(sl==1){-gt;Caption=StrToInt(Panel8-gt;Caption)+StrToInt(Form6-gt;Panel1-gt;Caption);-gt;ShowModal();-gt;Caption=laquo;Иraquo;;++;
} - gt; Enabled=false; ((sl == 2) || (sl == 3) || (sl == 4) || (sl == 5)) Form4- gt; ShowModal (); (k == 6) {(sl == 1) ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl == 2) ShowMessage ( Ви абсолютно вірн...
