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

@Artem66 · Регистрация: 06.12.2015

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

Изначальный цвет-зеленый. После каждого нажатия изменяется цвет формы в последовательности зеленый-красный-желтый. Помогите

@volvo · 06.12.2015, 17:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  cl : array[0 .. 2] of TColor = (clGreen, clRed, clYellow);
  curr : integer = 0;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  curr := succ(curr) mod 3;
  Color := cl[curr];
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Color := cl[curr];
end;

@Jiro_NImo · 10.12.2017, 14:13

Syntax error, ";" expected but "identifier COLOR" found

@volvo · 10.12.2017, 15:08

Ничего похожего не наблюдаю. Можно посмотреть на скриншот, где видно и сам код и ошибку?
Я лично больше тебе код приводить не буду, а то потом опять скажешь, что это вода ненужная...

@andyj · 10.12.2017, 16:39

Сообщение от volvo

curr := succ(curr) mod 3;

Не грузите новичков! для меня самого эта конструкция является откровением... (ушла в "копилку")

Может новичку будет понятнее конструкция

Pascal
1
2
3
4
5
6
7
if(Form1.color=clGreen)then begin
  Form1.color:=clYellow;
end else if(Form1.color=clYellow)then begin
  Form1.color:=clRed;
end else begin
  Form1.color:=clGreen;
end;

@volvo · 10.12.2017, 16:40

Сообщение от andyj

для меня самого эта конструкция является откровением...

Это не моя и не новичков проблема. Всю жизнь так решалось, я не собираюсь подстраиваться под неучей и делать так, как ИМ понятно.

@andyj · 10.12.2017, 17:02

Не по теме:

Сообщение от volvo

я не собираюсь подстраиваться под неучей и делать так, как ИМ понятно.

Можно и через ООП придумать с кодом на 2 экрана с хранением цветов в отдельном списке TList... или даже целый движок для этого сварганить с хранением списка цветов в SQL базе данных... или даже в облаке...
Но если это новичок(первые шаги), то ему важно понимать за что отвечает каждый символ/команда в его коде! (даже за счет потери в "компактности кода") Иначе для него это останется "черным ящиком, где лучше ничего не трогать - для этого есть люди которые понимают и до которых мне тяжело будет дорасти"... и тогда "зародыш программиста" вырастает бухгалтером ))

@bormant · 14.12.2017, 21:25

andyj,
плохая аналогия. Succ -- это "+1" для произвольного типа, (a+1) mod 3 -- это элементарное сложение по модулю. О каких таких высоких материях речь, если это базовые знания-кирпичики. Почему б тогда, оставаясь последовательным, не требовать сложения в виде for i:=1 to 5 do Inc(a) или еще какой невразумительной экзотики :-)

@andyj · 15.12.2017, 05:12

Не по теме:

Сообщение от bormant

не требовать сложения в виде for i:=1 to 5 do Inc(a) или еще какой невразумительной экзотики :-)

я уже приводил в соседней ветке "кирпичек" более понятный новичку: a:=a+1; if(a>3) then a:=0;
этим блоком я пользовался во всех языках чтобы не запутаться... где-то было a++; if(a>3) a=0; где-то для компактности писал свою функцию типа my(a, 3);

судя по гуглу succ нет в java, и похоже в C++ только от Embargo (производитель Делфи) == эта функция "экзотическая" и "чисто делфийско-паскалевская" (со всеми последствиями для "человека планирующего стать восстребованым для заказчика и использующего Лазарус лишь как ступеньку для перехода к более... популярным языкам").
а значит "зазубренный кирпичек" a:=succ(a) mod 3; будет работать ТОЛЬКО в лазарус, ужмет мой код в 2 раза, но заставит вспоминать эту функцию через 5 лет если мне прийдется перебирать утилиту переходя(/временно возвращаясь) с других языков...

p.s. гугл говорит что похожая команда есть в js, но похоже и там она... "экзотическая".

@bormant · 15.12.2017, 11:23

andyj,
В Си и подобных напишете точно также: a=(a+1)%3;
Разве что-то поменялось?

Добавлено через 1 час 38 минут
Не нравится Succ(), ну напишите curr := (curr+1) mod 3; ведь это ничего не меняет.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Artem66 0 / 0 / 0 Регистрация: 06.12.2015 Сообщений: 9

	Изменение цвета при нажатии на кнопку 06.12.2015, 16:28. Показов 23200. Ответов 9 Метки нет (Все метки) Изначальный цвет-зеленый. После каждого нажатия изменяется цвет формы в последовательности зеленый-красный-желтый. Помогите 0

@Jiro_NImo 0 / 0 / 0 Регистрация: 01.12.2017 Сообщений: 14
	10.12.2017, 14:13
	Syntax error, ";" expected but "identifier COLOR" found 0

@volvo Супер-модератор 33185 / 21483 / 8231 Регистрация: 22.10.2011 Сообщений: 36,855 Записей в блоге: 12
	10.12.2017, 15:08
	Ничего похожего не наблюдаю. Можно посмотреть на скриншот, где видно и сам код и ошибку? Я лично больше тебе код приводить не буду, а то потом опять скажешь, что это вода ненужная... 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,157 Записей в блоге: 1
	14.12.2017, 21:25
	andyj, плохая аналогия. Succ -- это "+1" для произвольного типа, (a+1) mod 3 -- это элементарное сложение по модулю. О каких таких высоких материях речь, если это базовые знания-кирпичики. Почему б тогда, оставаясь последовательным, не требовать сложения в виде for i:=1 to 5 do Inc(a) или еще какой невразумительной экзотики :-) 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,157 Записей в блоге: 1
	15.12.2017, 11:23
	andyj, В Си и подобных напишете точно также: a=(a+1)%3; Разве что-то поменялось? Добавлено через 1 час 38 минут Не нравится Succ(), ну напишите curr := (curr+1) mod 3; ведь это ничего не меняет. 0