type
  TCustForm = class(TForm)
    MainMenuLocal: TMainMenu;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SyncViewSettings(Saving:boolean=false); virtual;
    procedure AfterLogin; virtual;
    procedure BeforeLogoff; virtual;
    procedure ShowParamertic(Parametrs:array of variant); virtual;
    function StatusText:string; virtual;
  end;
  TCustFormClass=class of TCustForm;

type
  TChildForm=class(TCollectionItem)
   private
    FId:string;
    FImageIndex:Integer;
    FAction:TAction;
    FCreated:boolean;
    FCategory:string;
    FClass:TCustFormClass;
    FLink:TCustForm;
  end;

var Childs:TCollection=nil; // of TChildForm

procedure RegisterChildForm(IdStr:string;
     CustFormClass:TCustFormClass;
     Category:string='';
     ImageIndex:Integer = - 1 );
begin
  if Category='' then Category:=sCatMain;
  Assert(Assigned(Childs));
  with Childs.Add as TChildForm do begin
    fId:=IdStr;
    FImageIndex := ImageIndex;
    FAction:=nil; //constructed in TMainForm.Create
    FCreated:=false;
    FCategory:=Category;
    FClass:=CustFormClass;
    FLink:=nil;
  end;
end;

procedure TMainForm.SomeFormCall(Sender: TObject);
begin
  SafeCallWindow((Sender as TAction).Caption,[]);
end;

function TMainForm.SafeCallWindow(Id:string; Parametrs:array of variant):boolean;
var i:integer;
begin
  i:= 0 ;
  while (Childs.Items[i] as TChildForm).FId<>Id do inc(i);
  Assert(i<Childs.Count);
  with Childs.Items[i] as TChildForm do begin
    if not(FCreated) then begin
      //Screen.Cursor:=crHourGlass;
      //LockWindowUpdate(Handle);
      try
        Application.CreateForm(FClass,FLink);
        FLink.Caption:=FId;
        if Connected then FLink.AfterLogin;
        FCreated:=true;
      finally
        //LockWindowUpdate( 0 );
        //Screen.Cursor:=crDefault;
      end;
    end;
    FLink.ShowParamertic(Parametrs);
    FLink.BringToFront;
    result:=Assigned(FLink) and (FLink.Visible);
  end;
  FreshStatus;
end;

initialization
    RegisterChildForm(sIdAP,TAPForm,'', 35 );