Курсовая работа: Разработка программы, моделирующую игру Кости

image2.Visible:=false;

combobox1.Visible:=false;

combobox2.Visible:=false;

bitbtn1.Visible:=false;

end;

procedure tform1.visible_all(Sender: TObject);//делаемвидимымивсеобъектынаформе

begin

label1.Visible:=true;

label2.Visible:=true;

label3.Visible:=true;

label4.Visible:=true;

label5.Visible:=true;

label6.Visible:=true;

label7.Visible:=true;

image1.Visible:=true;

image2.Visible:=true;

combobox1.Visible:=true;

combobox2.Visible:=true;

bitbtn1.Visible:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);//присозданииформы

begin

image3.Visible:=true;

image3.picture.loadfromfile('l4.bmp');

invisible_all(Sender);//делаем невидимыми все объекты на форме, при загрузке игры

end;

procedure TForm1.Label6Click(Sender: TObject);//нажатиенанадписьпоставить

begin

bitbtn1.Enabled:=true;//делаемактивнойкнопкуброска