Изменить свойство "чужого" компонента.

← →
V-Isa © (2004-04-02 10:06) [0]

Здравствуйте!
Пишу компонент. Одним из его свойств является следующее:
property OtherComp: TComponent Read GetOtherComp Write SetOtherComp;. Необходимо в SetOtherComp узнать есть ли у передаваемого компонента свойство типа TIcon и изменить его. Как это сделать???

← →
Sun bittern © (2004-04-02 10:36) [1]

// Свойтсво от того класса от которого нам нужно или нет
Function HasSource(Instance: TObject; APropertyName: String; AClass: TClass): Boolean;
var
PropInfo: PPropInfo;
begin
PropInfo := GetPropInfo(Instance, APropertyName, tkProperties);
Result := PropInfo<>nil;
if Result then
if not ((PropInfo^.PropType^.Kind = tkClass) and
(GetTypeData(PropInfo^.PropType^).ClassType.InheritsFrom(AClass)))
then Result := False;
end;

if HasSource(PopupMenu1, "Images", TCustomImageList) then Caption := "ddd";
// Смена TIcon
SetObjectProp()
Как проверить есть свойство или нет ссылки уже давали

http://podgoretsky.com/ddp.html

На сайте Анатолия Подгоредского есть электроный вариант книги Стива Тейксейра и Ксавье Пачеко. Там про RTTI и создание компонент

← →
TUser © (2004-04-02 10:38) [2]

Популярная тема в послднее время, однако
http://delphimaster.net/view/1-1080711559/

← →
V-Isa © (2004-04-02 11:05) [3]

Где находится SetObjectProp()????
В TypInfo ее нет, у мя Delphi 3.

← →
Sun bittern © (2004-04-02 11:23) [4]

>> у мя Delphi 3.

Упс, насчет третей не скажу (у меня 7). Не разу ей не пользовался. Начинал с четверки и то мало на ней седел. Наверно придется делать UpGrade Delphi.
Я по заголовку ([D1, D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]) вижу что у тебя есть наверно 7 дельфя, посмотри как там рализовано может выйдет чего (хотя RTTI у Borland может изменятся от версии к версии и гарантий ни каких нет)

← →
Defunct © (2004-04-02 11:34) [5]

Procedure TBLalala.SetOtherComp(OtherComp:TComponent); Begin If OtherComp is (Класс который содержит TIcon) Then With OtherComp as (Класс который содержит TIcon) Do Icon := <Bla bla bla> End;

← →
Sun bittern © (2004-04-02 11:43) [6]

Defunct © (02.04.04 11:34) [5]

Это если объект произощел от некого класса, а тут речь о пропертях :)

← →
Sun bittern © (2004-04-02 11:45) [7]

Defunct © (02.04.04 11:34) [5]

Это если объект произощел от некого класса, а тут речь о пропертях :) (или я чего не догоняю)

← →
Defunct © (2004-04-02 11:59) [8]

Sun bittern © (02.04.04 11:45) [7]

Дык с пропертями и работаем.
Автор ведь знает с чем работает. Зачем усложнять жизнь?

Defunct © (02.04.04 11:59) [8]
>> Автор ведь знает с чем работает

Откуда? Неизвестно точно какой компонент передается и неизвестно точно наименование свойства в котором содержится TIcon. По вопросу:
>> узнать есть ли у передаваемого компонента свойство типа TIcon и изменить его

Тогда наверно так:

procedure A(AClass: TComponent; List: TStrings; FindClass: TClass);
var
PropList: PPropList;
ClassTypeInfo: PTypeInfo;
ClassTypeData: PTypeData;
OrdTypeData: PTypeData;

I: Integer;
begin
ClassTypeInfo := AClass.ClassInfo;
ClassTypeData := GetTypeData(ClassTypeInfo);
if ClassTypeData.PropCount <> 0 then
begin
GetMem(PropList, SizeOf(PPropInfo) * ClassTypeData.PropCount);
try
GetPropInfos(AClass.ClassInfo, PropList);
for I := 0 to ClassTypeData.PropCount - 1 do
// Перебор свойств объекта (не свойства-события)
if not (PropList[i]^.PropType^.Kind = tkMethod) then
begin
// Свойсво-объект
if PropList[i]^.PropType^.Kind = tkClass then
begin
OrdTypeData := GetTypeData(PropList[i]^.PropType^);
if OrdTypeData.ClassType = TCustomImageList then
begin
List.Add(AClass.Name + " > " + PropList[i]^.Name + ": " + PropList[i]^.PropType^.Name);
SetObjectProp(AClass, PropList[i]^.Name, FImageList);
end;
end;
end;
// Чистка
finally
FreeMem(PropList, SizeOf(PPropInfo) * ClassTypeData.PropCount);
end;
end;
end;

...
A(PopupMenu1, Memo1.Lines, TCustomImageList);
...

Только у автора вопроса какието проблемы
V-Isa © (02.04.04 11:05) [3]

опять гнустная ошибочка вышла :(

if OrdTypeData.ClassType = TCustomImageList then
на
if OrdTypeData.ClassType = FindClass then

>> Автор ведь знает с чем работает
> Откуда?

;) Анекдот получился.

> Неизвестно точно какой компонент передается и неизвестно точно наименование свойства в котором содержится TIcon.

Ну это нам не известно, а автору известно ;) Иначе бы такой задачи не было.

http://bhv.ru/books/book.php?id=2735

Изменить свойство "чужого" компонента. Найти похожие ветки