Работа с Button и Image

@Bekonai · Регистрация: 15.04.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте!
У меня на форме имеется 1 кнопка и 8 картинок(image). Теперь подскажите мне пожалуйста, как можно сделать так чтобы при нажатий на кнопку один раз показалось одна картинка, еще один раз показалось другая картинка и т.д(8 раз). Заранее большое ВАМ спасибо!!!

@Жека-старший · 16.04.2010, 07:40

Можно так.
......................
var Form1:TForm
i:byte;
......................

Delphi

procedure TForm2.FormCreate(Sender: TObject);
begin
  i:=0;
  Image1.Visible:=false;//ну или при проектировании проги сделать картинки невидимыми
  Image2.Visible:=false;
  Image3.Visible:=false;
  Image4.Visible:=false;
  ............................
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
   inc(i);
   case i of
   1:Image1.Visible:=true;
   2:Image2.Visible:=true;
   3:Image3.Visible:=true;
   4:Image4.Visible:=true;
   ..............................
   end;
end;

@Жека-старший · 16.04.2010, 07:41

Маленький пример.

@Bekonai 1 / 1 / 0 Регистрация: 15.04.2010 Сообщений: 19
		1
	Работа с Button и Image 16.04.2010, 07:24. Показов 3800. Ответов 2 Метки нет (Все метки) Здравствуйте! У меня на форме имеется 1 кнопка и 8 картинок(image). Теперь подскажите мне пожалуйста, как можно сделать так чтобы при нажатий на кнопку один раз показалось одна картинка, еще один раз показалось другая картинка и т.д(8 раз). Заранее большое ВАМ спасибо!!! 0

	16.04.2010, 07:41

Работа с Button и Image

Решение