Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Chysti © (2008-01-21 19:36:00)
Как поменять свойство Caption у всех компонентов формы
во всех формах в программе.

Chysti (2008-01-22 12:52:00) [1]
homm:
ладно. мне этого нехватило. ну убей меня теперь.

homm (2008-01-22 12:38:00) [2]
> [11] Chysti © (22.01.08 12:34)
> недогоняю да.

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

Chysti (2008-01-22 12:34:00) [3]
homm:

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

{RASkov}:

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

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

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

{RASkov} (2008-01-22 12:17:00) [5]
> [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...

Chysti (2008-01-22 12:07:00) [6]
какой будет ComponentCount?
и какой тогда будет Components[i]?

Chysti (2008-01-22 12:05:00) [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;

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

Leonid Troyanovsky (2008-01-21 21:16:00) [8]

> Efir (21.01.08 20:10) [4]

> Form.Components

Controls.

--
Regards, LVT.

Leonid Troyanovsky (2008-01-21 21:08:00) [9]

> 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.

Efir (2008-01-21 20:10:00) [10]
Form.Components

Chysti (2008-01-21 19:52:00) [11]
да я это знаю... я вот там ещё написал во всех формах в программе.

Chysti (2008-01-21 19:52:00) [12]
Efir - Spasibo.

Efir (2008-01-21 19:46:00) [13]
for i:=0 to ComponentCount-1 do
if Components[i] is (Тип Компонента с Caption) then
(Тип Компонента с Caption)(Components[i]).Caption:='111';

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »