связь компонентов в DisignTime [D4, D7, Win95/98, WinXP]
jk © (2005-10-29 06:44:00)
как организовать связь двух пользовательских
компонентов: например компонент_A и компонент_B.
То есть после созданиия этих компонентов должен быть
достигнут следующий эффект:
Размещаем на форме несколько экземпляров компонент_A и
несколько экземпляров компонент_B.
В свойствах компонента_A (в инспеторе объектов) должно
присутствовать свойство-выпадающий список
доступных(размещённых на форме на этапе проектирования)
компонентов_B.
И наоборот,
в свойствах компонента_B должно присутствовать
свойство-выпадающий список доступных(размещённых на форме на
этапе проектирования) компонентов_A.
При удалении или добавлении компонентов эти списки
должны
автоматически корректироваться.
Юрий Зотов (2005-10-29 16:57:00) [1]
type
TB = class;
TA = class(...)
private
FB: TB;
procedure SetB(const Value: TB);
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
published
property B: TB read FB write SetB;
end;
TB = class(...)
private
FA: TA;
procedure SetA(const Value: TA);
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
published
property A: TA read FA write SetA;
end;
procedure TA.Notification(AComponent: TComponent; Operation:
TOperation);
begin
inherited;
if (Operation = opRemove) and (AComponent = FB) then
FB := nil
end;
procedure TA.SetB(const Value: TB);
begin
if FB <> Value then
begin
if FB <> nil then
RemoveFreeNotification(FB);
FB := Value;
if FB <> nil then
FreeNotification(FB)
end
end;
procedure TB.Notification(AComponent: TComponent; Operation:
TOperation);
begin
inherited;
if (Operation = opRemove) and (AComponent = FA) then
FA := nil
end;
procedure TB.SetA(const Value: TA);
begin
if FA <> Value then
begin
if FA <> nil then
RemoveFreeNotification(FA);
FA := Value;
if FA <> nil then
FreeNotification(FA)
end
end;
Наверх 
ЧАТ |
Орешник |
|
