Скачать: CL | DM;

Как поменять свойство 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...

---

← →
homm ©   (2008-01-22 12:18) [10]

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

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

---

← →
Chysti ©   (2008-01-22 12:34) [11]

homm:

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

{RASkov}:

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

---

← →
homm ©   (2008-01-22 12:38) [12]

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

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

---

← →
Chysti ©   (2008-01-22 12:52) [13]

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c