Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Мар

Изменение цвета label при нажатии кнопки

Posted by Chas under Delphi

Имеется кнопка «Далее». Мне нужно сделать так чтобы при нажатии кнопки «Далее» label1 менял цвет на синий, потом еще раз нажимаю «Далее» и label2 меняет цвет на красный, потом еще раз нажимаю «Далее» и label3. Меняет цвет на белый. Как сделать такое?

TorrentTor
Вот так попробуйте (не забудьте описать глобальную переменную i):

.......

var

   i: byte=0;

.......

procedure TForm1.Button1Click(Sender: TObject);

begin

i:=i+1;

  case i of

  2: Label1.Color:=clRed;

  3: Label1.Color:=clWhite

  else

    Label1.Color:=clBlue;

    i:=1;

  end;

end;

..........

тема на форуме