Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.02.17;
Скачать: [xml.tar.bz2];

Вниз

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

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

Наверх





Память: 0.47 MB
Время: 0.043 c
8-1173797585
San ciz
2007-03-13 17:53
2008.02.17
avi из картинок


2-1201268146
smartleds
2008-01-25 16:35
2008.02.17
Народ , подскажите плз . Есть в проекте на delphi два файла


6-1180619634
Леван Варшанидзе
2007-05-31 17:53
2008.02.17
Работа с FTP


15-1199971931
Dmitry S
2008-01-10 16:32
2008.02.17
Расскрыть SWF


1-1194198435
Slim
2007-11-04 20:47
2008.02.17
DBLookupComboboxEh1





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский