| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по Delphi [D7]

alexan ©   (2009-12-14 19:43:00) 

Здравствуйте!!
Вопрос к знатокам 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;
          ........................

---

McSimm   (2009-12-14 23:32:00) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1260820725&n=3

---

Nucer   (2009-12-14 20:43:00) [2]

> Юрий Зотов ©   (14.12.09 20:08) [2]

Спасибо за замечания =)

Если не сложно, то можно немного написать о разнице между:
1. Components[i].ClassType = TPanel и Components[i] is TPanel
2. (Components[i] as TPanel).Color и TPanel(Components[i]).Color

Или разницы, как и в случае self, по сути никакой?

---

Юрий Зотов   (2009-12-14 20:08:00) [3]

Self - убрать, остальное - подправить:

for i := 0 to ComponentCount - 1 do
 if Components[i] is TPanel then
   TPanel(Components[i]).Color := clYellow;

---

Nucer   (2009-12-14 19:49:00) [4]

Даже и не знаю что ответить на ваш вопрос =)
Если программирование вам действительно нужно, то возьмите какую-нибудь книжку по Delphi и начинайте читать с первой страницы.

А вот код (если конечно нужно именно это):
var
 i: Integer;
begin
 for i := 0 to self.ComponentCount - 1 do
   begin
     if self.Components[i].ClassType = TPanel then
       (self.Components[i] as TPanel).Color := clYellow;
   end;
end;

---

Наверх