Jump to content

DiegoNBR

Members
  • Posts

    2
  • Joined

  • Last visited

Posts posted by DiegoNBR

  1. Version: uniGUI Complete Trial Edition 1.90.0.1509


    procedure TFrmProdutosWeb.UniFormCreate(Sender: TObject);
    var
      LProdutosWeb: TFrmProdutos; //VCL Form to convert in Unigui in Runtime
    begin
      bBloquearCreateShowVCL := True;
    //Error occurs here:  
    LProdutosWeb := TFrmProdutos.Create(nil);

      LProdutosWeb.Visible := False;
      DPadraoControllerDM.View.Form := Self;
      SuspendLayouts;
      try
        Self.Caption := LProdutosWeb.Caption;
        UniServerModule.Title := Self.Caption;
        Self.Top := LProdutosWeb.Top;
        Self.Left := LProdutosWeb.Left;
        Self.Height := LProdutosWeb.Height;
        Self.Width := LProdutosWeb.Width;

        TConversorVCL2Unigui.ConverterObjetos(LProdutosWeb, Self);
      finally
        bBloquearCreateShowVCL := False;
        LProdutosWeb.FormCreate(LProdutosWeb);
        LProdutosWeb.FormShow(LProdutosWeb);
        ResumeLayouts;
        LProdutosWeb.Free;
      end;
    end;


     

×
×
  • Create New...