TtiModelMediator

type TtiModelMediator = class(TComponent) end;

protected

  function CreatePropertyDefs; virtual;

  function CreateProperty(); virtual;

  procedure AfterPropertyCreated();

  procedure CheckSubject;

  procedure CheckInactive;

  procedure CheckMediator();

  procedure CheckMediators;

  procedure Bind;

  procedure UnBind;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  function AddProperty();

  function AddComposite();

  function FindByComponent();

  function FindByMediator();

  function FindByTag();

  function FindMediatorView();

  function FindComponent();

  procedure SubjectChanged;

  property Subject: TtiObject; [rw]

  property Active: Boolean; [rw]

  property MediatorView []: TtiMediatorView; [r]

  property SelectedObject []: TtiObject; [rw]

published

  property PropertyLinks: TtiPropertyLinkDefs; [rw]

TtiModelMediator

TComponent

TObject