Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

TButton(ALL).Caption:= Батон ;   Найти похожие ветки 

← →
rentgen ©   (2005-07-29 09:35) [0]

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

---

← →
MBo ©   (2005-07-29 09:39) [1]

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

---

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

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

---

← →
Rentgen ©   (2005-07-29 10:17) [3]

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


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


---

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

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c