Технический форум - При нажатии кнопки форма меняет цвет

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - При нажатии кнопки форма меняет цвет (http://www.tehnari.ru/f41/t82498/)

cawwe

18.12.2012 21:19

При нажатии кнопки форма меняет цвет

добрый вечер! на языке 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);

Ario	18.12.2012 21:40

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

AlexZir

18.12.2012 21:41

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

в обработчике события OnClick пропишите команду установки цвета, этого будет достаточно.

cawwe

18.12.2012 21:44

Цитата:

Сообщение от Ario (Сообщение 835501)

определённый цвет должна менять.

cawwe

18.12.2012 21:55

Цитата:

Если цвет определен - то проще изначально уже прописать его номер в Label.Caption

а тогда какой код получается?

Ario	18.12.2012 21:59

Код:

a := {циферное значение цвета, типа 1412552};

LABEL1.Caption:=IntToStr(a);

Численное значение цвета я определял тутже в программе: кидал на форму ColorDialog (или как он называется), дальше:

Цитата:

If ColorDialog.Execute then Edit1.Text := IntToStr(ColorDialog.Color)

смысл такой

cawwe

18.12.2012 22:12

спасибо за помощь

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