Скачать: CL | DM;

Вопрос по Delphi   Найти похожие ветки 

← →
alexan ©   (2009-12-14 19:43) [0]

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

---

← →
Nucer   (2009-12-14 19:49) [1]

Даже и не знаю что ответить на ваш вопрос =)
Если программирование вам действительно нужно, то возьмите какую-нибудь книжку по 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;

---

← →
Юрий Зотов ©   (2009-12-14 20:08) [2]

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

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

---

← →
Nucer   (2009-12-14 20:43) [3]

> Юрий Зотов ©   (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, по сути никакой?

---

← →
McSimm ©   (2009-12-14 23:32) [4]

http://delphimaster.net/view/15-1260820725/

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c