Здравствуйте!
У меня на форме имеется 1 кнопка и 8 картинок(image). Теперь подскажите мне пожалуйста, как можно сделать так чтобы при нажатий на кнопку один раз показалось одна картинка, еще один раз показалось другая картинка и т.д(8 раз). Заранее большое ВАМ спасибо!!!
Работа с Button и Image
Точно так же как и в предыдущей теме, отвечать не буду, почитай учебник.
[syntax=Delphi] [/syntax]
-
- Сообщения: 407
- Зарегистрирован: 13 сен 2004, 12:05
- Откуда: Курган
- Контактная информация:
Включи соображалку. Почти всегда, когда нужно вызывать обработчик событий несколько раз и при этом что-то будет менятся при следующем вызове обработчика - нужно вводить глобальную переменную. Работать с ней как со счетчиком вызова одной и той же процедуры (например нажатие кнопки).
var // здесь публикуются глобальные переменные
Form1: TForm1;
i:integer; // наша переменная-счетчик
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1; // это и есть счетчик. При каждом вызове процедуры переменная I будет увеличиваться на 1
Case i of //Смотрим какое значение примет переменная I и делаем нужное действие
1: <действие 1>
2: <действие 2>
end;
end;
var // здесь публикуются глобальные переменные
Form1: TForm1;
i:integer; // наша переменная-счетчик
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1; // это и есть счетчик. При каждом вызове процедуры переменная I будет увеличиваться на 1
Case i of //Смотрим какое значение примет переменная I и делаем нужное действие
1: <действие 1>
2: <действие 2>
end;
end;
Чем проще - тем оригинальней, а значит гениально, т.к. все гениальное - просто!
Да! Кстати! Ctrl+V реально вставляет!!! ХDD
