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

[cawwe]

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

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

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

 

[AlexZir]

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

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

 

[cawwe]

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

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

 

[cawwe]

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

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

 

[Ario]

a := [COLOR="SeaGreen"]{циферное значение цвета, типа 1412552}[/COLOR];
LABEL1.Caption:=IntToStr(a);

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

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

смысл такой

 

[cawwe]

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