unit UIHandler; interface uses InterfaceUI, mybean.core.objects; type TUIHandler = class(TMyBeanInterfacedObject, IUIHandler) private FIViewManager: IViewManager; FTalkFormFactory: ITalkFormFactory; public constructor Create; override; destructor Destroy; override; procedure SetViewManager(AViewManager: IViewManager); procedure SetTalkFormFactory(ATalkFormFactory: ITalkFormFactory); function GetViewManager: IViewManager; function GetTalkFormFactory: ITalkFormFactory; property ViewManager: IViewManager read FIViewManager; property TalkFormFactory: ITalkFormFactory read FTalkFormFactory; end; implementation { TUIHandler } constructor TUIHandler.Create; begin inherited; end; destructor TUIHandler.Destroy; begin inherited; end; function TUIHandler.GetTalkFormFactory: ITalkFormFactory; begin Result := FTalkFormFactory; end; function TUIHandler.GetViewManager: IViewManager; begin Result := FIViewManager; end; procedure TUIHandler.SetTalkFormFactory(ATalkFormFactory: ITalkFormFactory); begin FTalkFormFactory := ATalkFormFactory; end; procedure TUIHandler.SetViewManager(AViewManager: IViewManager); begin FIViewManager := AViewManager; end; end.