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

Вниз

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

← →
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;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.004 c