RealICQClient/Includes/MyBean/samples/MDIConsoleNoPackge/source/Interface/mBeanMainFormTools.pas

unit mBeanMainFormTools;

interface

uses
  Forms,
  uIMainForm;

type
  TmBeanMainFormTools = class(TObject)
  public
    class procedure removeFromMainForm(const pvInstanceID: AnsiString);
    class procedure setMainForm(const pvMainForm: IMainForm);
    class function getMainForm():IMainForm;

  end;

implementation

uses
  mybean.tools.beanFactory;

{ TmBeanMainFormTools }

class function TmBeanMainFormTools.getMainForm: IMainForm;
begin
  Result := nil;
  Result := (TMyBeanFactoryTools.getObject('main') as IMainForm);
end;

class procedure TmBeanMainFormTools.removeFromMainForm(const pvInstanceID:
    AnsiString);
var
  lvMainForm:IMainForm;
begin
  try
    lvMainForm := getMainForm;
    if lvMainForm <> nil then
    begin
      lvMainForm.removePlugin(PAnsiChar(pvInstanceID));
    end;
  except
  end;
end;

class procedure TmBeanMainFormTools.setMainForm(const pvMainForm: IMainForm);
begin
  TMyBeanFactoryTools.setObject('main', pvMainForm);
end;


end.