Как перебрать все компоненты на форме

← →
Chcnger (2004-03-31 13:22) [0]

ЗДРАВСТВУЙТЕ! Как можно на форме перебрать все компоненты(естественно программно) и поменять их Caption(если он есть)?
За ранее спасибо

← →
[lamer]Barmaglot © (2004-03-31 13:28) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
k: integer;
begin
For k:=1 to Form1.ComponentCount-1 do
Listbox1.items.add(Form1.Components[k].Name);
end;

Остальное посмотри сам...

← →
Sun bittern © (2004-03-31 13:30) [2]

procedure A(AComponent: TComponent);
var
I: Integer;
begin
for I := 0 to AComponent.ComponentCount - 1 do
begin
...
...
if AComponent.Components[I].ComponentCount > 0 then A(AComponent);
end;
end;

Caption и возможные последствия
http://delphimaster.net/view/1-1080711559/

← →
Sun bittern © (2004-03-31 13:33) [3]

if AComponent.Components[I].ComponentCount > 0 then A(AComponent.Components[I]);

← →
Юрий Зотов © (2004-03-31 13:40) [4]

> [lamer]Barmaglot © (31.03.04 13:28) [1]

Скажите, а зачем Вы пишете Form1? Что за странный стиль?

А если никакой Form1 вовсе не существует? А если форма называется Form777? А если таких форм пара десятков?

Тогда как быть?

uses
TypInfo;

procedure TForm1.ChangeCaptions (const NewCaption:string);
var
I: Integer;
begin
for I:=0 to Pred(ComponentCount) do
if IsPublishedProp(Components[I], "Caption") then
SetStrProp(Components[I], "Caption", NewCaption);
end;

For k:=1 to Form1.ComponentCount-1 do
Listbox1.items.add(Form1.Components[k].Name);

А как быть с Components[0]?

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