Показать сообщение отдельно
  #1  
Старый 25.02.2015, 18:29
avis_rara avis_rara вне форума
Прохожий
 
Регистрация: 01.07.2014
Сообщения: 13
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Изменение цвета всех Shape - s

Добрый день, не хотелось создавать новую тему, но не нашел ничего общего с моим вопросом.
У меня есть много элементов Shape. И при определенных условиях мне нужно им всем менять цвета. Но для каждого прописывать отдельно это очень долго и не красиво....
как обращаться к ним?
Код:
if {условие1} then
begin
  for j:=1 to 50 do
  begin
    Shape[j].Brush.Color:= clMoneyGreen; // ну это ест-но не работает
  end
else
begin
  for j:=1 to 50 do
  begin
   Shape[j].Brush.Color:= clLime;
  end;
end;

Как такое организовать?
Ответить с цитированием