![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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