|
#33
|
|||
|
|||
Код:
procedure TForm13.Button1Click(Sender: TObject); begin if radioButton1.Checked then Begin label1.Caption:='Верно'; button1.Enabled:=False; button2.Visible:=true; inc(KolGood); //переменная из Юнита End else begin label1.Caption:=' Ошибка'; button1.Enabled:=False; button2.Visible:=true; inc(KolOshibok); end; end; теперь вообще не чего не ставит((((( |