Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TButton(ALL).Caption:='Батон'; [D6, WinXP]


rentgen ©   (2005-07-29 09:35:00) 

Здравствуйте.
Можно-ли изменить параметры всех компонентов одного класса на   форме(проекте) одной строкой?
Что-то вроде:
TButton(ALL).Caption:='Батон';
Спасибо.


Rentgen   (2005-07-29 10:17:00) [1]

Спасибо!
Все работает.
Кому нужно, вот код:


...
var
comp:TComponent;
n:integer;
...
for n:=0 to ComponentCount-1 do begin
 comp:=components[n];
 if (comp is TEdit) then TEdit(comp).Text:='Hello';
end;
...


Чапаев   (2005-07-29 09:42:00) [2]

Если на API, ео RTFM FindWindowEx, EnumChildWindows, GetWindowClass, SetWindowText.


MBo   (2005-07-29 09:39:00) [3]

Да, можно, только строка будет длинная ;)
см. Components, ComponentCount (или Controls, ControlCount),
понадобится также проверка типа is


Наверх

Титульная страница Поиск, карта сайта Написать письмо