Как поменять свойство Caption у всех компонентов формы

← →
Chysti © (2008-01-21 19:36) [0]

Как поменять свойство Caption у всех компонентов формы
во всех формах в программе.

← →
Efir (2008-01-21 19:46) [1]

for i:=0 to ComponentCount-1 do
if Components[i] is (Тип Компонента с Caption) then
(Тип Компонента с Caption)(Components[i]).Caption:="111";

← →
Chysti © (2008-01-21 19:52) [2]

да я это знаю... я вот там ещё написал во всех формах в программе.

← →
Chysti © (2008-01-21 19:52) [3]

Efir - Spasibo.

← →
Efir (2008-01-21 20:10) [4]

Form.Components

← →
Leonid Troyanovsky © (2008-01-21 21:08) [5]

> Chysti © (21.01.08 19:52) [2]

> да я это знаю... я вот там ещё написал во всех формах в
> программе.

Screen.Forms

See also:
http://groups.google.com/group/fido7.ru.delphi/msg/941af4e3e0dced5e?dmode=source&output=gplain
Кодировка KOI8-R

--
Regards, LVT.

← →
Leonid Troyanovsky © (2008-01-21 21:16) [6]

> Efir (21.01.08 20:10) [4]

> Form.Components

Controls.

--
Regards, LVT.

← →
Chysti © (2008-01-22 12:05) [7]

у меня в программе это делается так

for i := 0 to ComponentCount-1 do
begin

if (Components[i] is TButton) then
Begin
capt:= (Components[i] as Tbutton).caption;
writeln(f1,"1 ",capt);
end;
end;

но все равно по всем формам программы он бежать отказывается.
как его заставить бежать по всем формам. может я чего недогоняю?

← →
Chysti © (2008-01-22 12:07) [8]

какой будет ComponentCount?
и какой тогда будет Components[i]?

← →
{RASkov} © (2008-01-22 12:17) [9]

> [8] Chysti © (22.01.08 12:07)

См [5,6]
И вот примерно так:
for i:=Low(Screen.Forms) to High(Screen.Forms) do for j:= 0 to Screen.Forms[i].ControlCount-1 do...

> [7] Chysti © (22.01.08 12:05)
> как его заставить бежать по всем формам. может я чего недогоняю?

Не доганаяешь. Того, что нужно читать ответы, которые тебе пишут, их пишут не от нечего делать.

homm:

д а ты незлись. недогоняю да. от этого и спрашиваю.

{RASkov}:

спасибо счас буду делать...

> [11] Chysti © (22.01.08 12:34)
> недогоняю да.

Ты в [2] спросил точно то же самое, что и в [7], тебе ответили в [5], ты даже ухом не повел. Тут не догонять надо. Чтобы увидеть ответ даже мозг был не нужен.

homm:
ладно. мне этого нехватило. ну убей меня теперь.

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