Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 18.12.2012, 21:19   #1 (permalink)
cawwe
Новичок
 
Регистрация: 18.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию При нажатии кнопки форма меняет цвет

добрый вечер! на языке Delphi 7 нужно написать программу, которая при нажатии кнопки меняет цвет формы

что у меня неправильно?

Код:
var
a:array[1..5] of integer;
i:integer;
begin
Form1.Color:=clRed;
for i:=1 to 5 do
a[1]:=clGreen;
a[2]:=clLime;
a[3]:=clYellow;
a[4]:=clAqua;
a[5]:=clBlue;
 
LABEL1.Caption:=IntToStr(a);
cawwe вне форума   Ответить с цитированием

Старый 18.12.2012, 21:19
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Тут вы можете ознакомиться с похожими темами

Делфи. Цвет кнопки в форме
Проблема - вентилятор процессора меняет обороты

Старый 18.12.2012, 21:40   #2 (permalink)
Ario
Пещерный человек
 
Аватар для Ario
 
Регистрация: 15.10.2010
Сообщений: 2,304
Записей в дневнике: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 5362
По умолчанию

Форма должна менять цвет рэндомно или в определенный?
Если так, то не вижу rnd в коде. Если цвет определен - то проще изначально уже прописать его номер в Label.Caption
Ario вне форума   Ответить с цитированием
Старый 18.12.2012, 21:41   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,506
Записей в дневнике: 57
Сказал(а) спасибо: 125
Поблагодарили 152 раз(а) в 63 сообщениях
Репутация: 59794
По умолчанию

если коротко - всё!

в обработчике события OnClick пропишите команду установки цвета, этого будет достаточно.
AlexZir вне форума   Ответить с цитированием
Старый 18.12.2012, 21:44   #4 (permalink)
cawwe
Новичок
 
Регистрация: 18.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Ario Посмотреть сообщение
Форма должна менять цвет рэндомно или в определенный?
Если так, то не вижу rnd в коде. Если цвет определен - то проще изначально уже прописать его номер в Label.Caption

определённый цвет должна менять.
cawwe вне форума   Ответить с цитированием
Старый 18.12.2012, 21:55   #5 (permalink)
cawwe
Новичок
 
Регистрация: 18.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Если цвет определен - то проще изначально уже прописать его номер в Label.Caption
а тогда какой код получается?
cawwe вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 18.12.2012, 21:59   #6 (permalink)
Ario
Пещерный человек
 
Аватар для Ario
 
Регистрация: 15.10.2010
Сообщений: 2,304
Записей в дневнике: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 5362
По умолчанию

Код:
a := {циферное значение цвета, типа 1412552};
LABEL1.Caption:=IntToStr(a);
Численное значение цвета я определял тутже в программе: кидал на форму ColorDialog (или как он называется), дальше:
Цитата:
If ColorDialog.Execute then Edit1.Text := IntToStr(ColorDialog.Color)
смысл такой
Ario вне форума   Ответить с цитированием
Старый 18.12.2012, 22:12   #7 (permalink)
cawwe
Новичок
 
Регистрация: 18.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо за помощь
cawwe вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 15:41.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.