Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Как в цикле перебрать компоненты 


PlaZZma   (2002-01-31 01:05) [0]

Подскажите, как поменять одно св-во у большого числа компонентов (Label1, Label2, Label3, ..., Label20. И св-во Vilible).
Очень срочно нужно. Заранее благодарен.



Miwa   (2002-01-31 01:15) [1]

В "Королевстве дельфи" в разделе "ФАК", кажется, есть отличная статься Е.Филипповой на эту тему. С примерами. Рекомендую. Если, конечно, имеется ввиду изменение свойств в режиме ран-тайм.



GorA   (2002-01-31 02:47) [2]

если у всех компонент один Owner, то можно сделать так:


for i = "owner".ComponentCount - 1 downto 0 do
if ("owner".Component[i] is TLabel) then
with ("owner".Component[i] as TLabel) do
begin
left := 0;
Visible := True;
.....
end;


удачи



Walker_sw   (2002-01-31 05:58) [3]

а если не один Owner (владелец), то можно создать список (вот в список добавлять придётся вручную... но зато всего один раз)



copyr25   (2002-01-31 06:55) [4]

var
Form1: TForm1;
B:TComponent;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=1 to 4 do begin
B:=FindComponent("Button"+IntToStr(i));
(B as TButton).Visible:=False;
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
14-42867          fliz                  2001-12-25 18:21  2002.02.14  
Кто нибудь разгонял монитор с 14 до 17 ?


14-42856          nikols                2001-12-26 15:34  2002.02.14  
Приглашаем поговорить про CORBA и EJB.


14-42871          creepster             2001-12-19 18:54  2002.02.14  
CGI


1-42737           ctapik-net            2002-01-30 19:38  2002.02.14  
Вот хочется узнать, как подключают контекстную справку с файлом chm?


1-42812           Diablo                2002-01-31 17:38  2002.02.14  
Как в листбоксе каждую страку зделать своим цветом