Поиск компонентов по форме

← →
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]

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

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