|
Вопрос # 3 527/ вопрос открыт / |
|
Здравствуйте!
Вопрос к знатокам Delphi, какая есть инструкция в Delphi
похожая на FOR TO DO только нужно вместо счётчика
вставить компонент, например последовательно
поменять цвета панелей (Panel1,Panel2... и т.д.),
а может это можно сделать и с помощю FOR TO DO?
такого плана
x: integer;
begin
for x:=1 to 5 do
Panel(x).Color:=clYellow;
Panel(x).Color:=clYellow;
Panel(x).Color:=clYellow;
Panel(x).Color:=clYellow;
Panel(x).Color:=clYellow;
end;
т. е. что бы в роли счётчика выступал номер компонента.
 |
Вопрос задал: Alexan (статус: Посетитель)
Вопрос отправлен: 14 декабря 2009, 21:51
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 14 декабря 2009, 22:20; участников в обсуждении: 2.
|
Демон^unix (статус: Посетитель), 14 декабря 2009, 22:00 [#1]:
Объявляем массив компонентов:
panel:array[1..5] of TPanel;
Пишем в коде где нужно:
for x:=1 to 5 do
begin
Panel[x].Color:=clYellow;
end;
|
|
Roma_no_off (статус: Посетитель), 14 декабря 2009, 22:20 [#2]:
var
Colors: array of TColor;
for i:=0 to Form1.ComponentsCount - 1 do
if Form1.Components[i] is TPanel then
(Form1.Components[i] is TPanel).Color:=Colors[i];
Colors может быть не только массивом, но и, допустим, TList'ом
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
