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

Поиск компонентов по форме   Найти похожие ветки 

← →
NickName   (2003-06-03 10:58) [0]

Здравствуй, уважаемый All.
Вот тут возник, такой трабл. Вообщем есть на форме Label и Button, так вот мне нужно пройтись по этим компонентам и присвоить им значение Caption. Вообщем более полно задача, заключается в том, что бы найти все компоненты на форме и присвоить им значение Caption, а если такого свойства у компонента нет, тогда просматривать некоторые другие свойства.
Заранее премного благодарен за любую помощь.

---

← →
MBo ©   (2003-06-03 11:01) [1]

Найти по-английски Find, а компонент - Component ;)

---

← →
Skier ©   (2003-06-03 11:01) [2]

SomeOwner.Components[...] +
SomeOwner.ComponentCount +
is +
работа через RTTI (модуль TypInfo.pas)

---

← →
Юрий Зотов ©   (2003-06-03 11:10) [3]

uses
..., TypInfo; // в D6, D7 может называться иначе, уточните.

function SetCaption(Obj: TObject; Caption: string): boolean;
var
P: PPropInfo;
begin
P := GetPropInfo(Obj, "Caption");
Result := P <> nil;
if Result then SetStrProp(Obj, P, Caption)
end;

...
for i := 0 to ComponentCount - 1 do
if not SetCaption(Components[i], "Привет!") then
begin
... // другие действия
end;

---

← →
NickName   (2003-06-03 11:46) [4]

Огромное спасибо Юрию Зотову.

---

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

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



Память: 0.45 MB
Время: 0.01 c