Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.02.14;
Скачать: 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 вся ветка

Текущий архив: 2010.02.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1260876051
Boy4uk
2009-12-15 14:20
2010.02.14
графика


15-1260307828
Юрий
2009-12-09 00:30
2010.02.14
С днем рождения ! 9 декабря 2009 среда


1-1237982706
Eraser
2009-03-25 15:05
2010.02.14
TListView и экшены


15-1259954884
oxffff
2009-12-04 22:28
2010.02.14
Спасибо.


2-1260646194
BenderAnt
2009-12-12 22:29
2010.02.14
TelnetServer